Из чисел A, B, C, D выбрать максимальное. срочно! решение!

Question

Из чисел A, B, C, D выбрать максимальное.
срочно! решение!

Answer 1

Var a,b,c,d,max:integer;
begin
read(a);
max:=a;
read(b);
if b>max then
max:=b;
read(c);
if c>max then
max:=c;
read(d);
if d>max then
max:=d;
writeln(max);
end.