составьте алгоритм нахождения наименьшего из трех значений в паскаль

Question

составьте алгоритм нахождения наименьшего из трех значений в паскаль

Answer 1

program p1;
var
a1, a2, a3, max: integer;
BEGIN
writeln ('Vvedite 3 chisla cherez probel i nazhmite probel');
readln (a1, a2, a3);

if a1>=a2 then
max:=a1
else
max:=a2;
if a3>max then
max:=a3;

Writeln('Maximalnoe chislo iz nih:', max);
readln
END.