Ввести с клавиатуры 4 числа и определить наибольшее из них. Результат вывести **...

Question

Ввести с клавиатуры 4 числа и определить наибольшее из них. Результат вывести на экран.Паскаль. сложные условия для данной задачи использовать нельзя. Срочно!!!!

Answer 1

Ответ:

var a,max:integer;

begin

write('Введите первое число: '); readln(a);

max:=a;

write('Введите второе число: '); readln(a);

if (a>max) then max:=a;

write('Введите третье число: '); readln(a);

if (a>max) then max:=a;

write('Введите четвертое число: '); readln(a);

if (a>max) then  max:=a;

writeln('Наибольшее введенное число равно ',max);

end.