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

Question

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

Answer 1

Var a,b,c,d,max:integer;
begin
max:=-100000;
readln(a);
if maxreadln(b);
if maxreadln(c);
if maxreadln(d);
if maxwriteln(max);
end.

Comments

А можно эти три строчки
max:=-100000;
readln(a);
if maxreadln(a);
max:=a;