Var
a,b,c,max,min:integer;
begin
write('Введите первое число');
readln(a);
write('Введите второе число');
readln(b);
write('Введите третье число');
readln(c);
if a > b then
max:=a
else
max:=b;
if max > c then
writeln('Максимальное число = ', max)
else
writeln('Максимальное число = ', c);
if a > b then
min:=b
else
min:=a;
if min < c then
writeln('Минимальное число = ', min)
else
writeln('Минимальное число = ', c);
end.
(x+y+z)/3 = 0,(3)x+0,(3)y+0,(3)z
Каждой букве соответствует своя цифра, например: 495+459=954
uses crt;
const n=3;
var i,s:integer;
k:string;
a:array[1..10] of integer;
begin
repeat
clrscr;
s:=0;
writeln('Задйате стаж работы в анкеты ');
for i:=1 to n do begin
write('Анкета ', i,': '); readln(a[i]);
if a[i]>=5 then inc(s)
end;
writeln('По реузльтатам подходят ', s,' анкеты');
writeln('Повторить - Enter. Выход - любой символ + Enter');
readln(k);
until k<>''
end.