Question

Составьте программу, которая находит меньшее из трех введенных чисел a,b,c и выводит его на экран Pascal ABC.

Answer 1

Var
a, b, c:integer;
begin
readln(a, b, c);
if (a<b) then begin
if (a<c) then
writeln(a);
end
else
if (b<c) then
writeln(b)
else
writeln(c);
end.