Question

составить программу в pascal abc. Найдите максимальное среди введеных 4 чисел. Зарание спасибо

Answer 1

var a,b,c,d,max:integer;
begin
max:=-100000;
readln(a);
if max<a then max:=a;
readln(b);
if max<b then max:=b;
readln(c);
if max<c then max:=c;
readln(d);
if max<d then max:=d;
writeln(max);
end.

Answer 2

А можно эти три строчки
max:=-100000;
readln(a);
if max<a then max:=a; заменить двумя
readln(a);
max:=a;