Написать программу для паскаль: ввести пять чисел и найти наибольшее из них.пример: 4, 15, 9, 56, 4. наибольшее число 56

Var x1,x2,x3,x4,x5,max: real; begin writeln('x1 x2 x3 x4 x5'); readln(x1,x2,x3,x4,x5); max: =x1; if max< x2 then max: =x2; if max< x3 then max: =x3; if max< x4 then max: =x4; if max< x5 then max: =x5; writeln('наибольшее число - ',max); end.

ответ:

алг

нач

цел й

вывод ('введите номер месяца ')

ввод й

если й< 1 или й> 12 то вывод ('месяца с таким номером не бывает') всё

если й=1 то вывод ('январь') всё

если й=2 то вывод ('февраль') всё

если й=3 то вывод ('март') всё

если й=4 то вывод ('апрель') всё

если й=5 то вывод ('май') всё

если й=6 то вывод ('июнь') всё

если й=7 то вывод ('июль') всё

если й=8 то вывод ('август') всё

если й=9 то вывод ('сентябрь') всё

если й=10 то вывод ('октябрь') всё

если й=11 то вывод ('ноябрь') всё

если й=12 то вывод ('декабрь') всё

кон

dim a, b, t, m, r as integer

a = -20: b = 20

m = a: r = f(a)

for t = a to b

    if f(t) < r then

        m = t

        r = f(t)

    end if

next t

print r

 

function f(x)

    f : = 4*(x-5)*(x+3)

end function

var a,b,t,m,r : integer;

    function f(x: integer): integer;

    begin

        f : = 4*(x-5)*(x+3);

    end;

begin

    a : = -20; b : = 20;

    m : = a; r : = f(a);

    for t : = a to b do begin

        if (f(t)< r) then begin

            m : = t;

            r : = f(t);

        end;

    end;

write(r);

end.