Задача 7 Урок 9

http://fkn.ktu10.com/?q=node/8539

Пользователь вводит четыре числа, найдите из них максимальное.

program z5;
var a, b, c , d, max2, max3, max4: integer;
begin
writeln ('vvedite chetire chisla:');
readln (a, b, c, d);
if (a>b) then
max2:=a
else
max2:=b;
if (max2>c) then
max3:=max2
else
max3:=c;
if (max3>d) then
max4:=max3
else max4:=d;
writeln(max4);
readln();
end.