Question

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

Answer 1

var a, b, min: integer;
begin
readln (a, b);
if a < b then min:=a else min:=b;
readln (a);
if a < min then min:=a;
writeln('наим=', min)
end.