Var a,b,c,y,x,min,max:integer; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); writeln('Введите третье число'); readln(c); writeln('Введите четвертое число'); readln(x); writeln('Введите пятое число'); readln(y);
if a > b then max :=a else max :=b; if max < c then max:=c; if max < y then max:=y; if max < x then max:=x; writeln('Максимальное число = ',max); end.
Answers & Comments
Verified answer
Var a,b,c,y,x,min,max:integer;begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число');
readln(c);
writeln('Введите четвертое число');
readln(x);
writeln('Введите пятое число');
readln(y);
if a > b then max :=a else max :=b;
if max < c then max:=c;
if max < y then max:=y;
if max < x then max:=x;
writeln('Максимальное число = ',max);
end.
Я плохой художник)