Напишите программу на языке программирования паскаль, которая будет сравнивать 5 чисел между собой и выводить наименьшее

program Hello;

var a,b,c,d,e, result : Integer;

function min(a,b : Integer) : Integer;

begin

if(a > b) then min := b else min := a;

end;

begin

a := 1;

b := 2;

c := 3;

d := 4;

e := 5;

result := min(min(min(a,b), min(c,d)), e);

writeln(result);

end.

Объяснение:

Код:

program Hello;

var a,b,c,d,e, result : Integer;

function min(a,b : Integer) : Integer;

begin

if(a > b) then min := b else min := a;

end;

begin

a := 1;

b := 2;

c := 3;

d := 4;

e := 5;

result := min(min(min(a,b), min(c,d)), e);

writeln(result);

end.

Подробнее - на -