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

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

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

program z7;
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.