Найти максимальное из 4 вводимых значений a, b, c, d? помогите пожалуйста...

Question

Найти максимальное из 4 вводимых значений a, b, c, d? помогите пожалуйста...

Answer 1

Var a,b,c,d,max:integer;
begin
writeln('Vvedite chusla');
readln(a,b,c,d);
max:=a;
if maxif maxif maxwriteln('max=',max);
end.