Составьте програму, которая запрашивает 3 числа и определяет наименьшее из них.

Program smallest;

var

a, b, c:integer;

begin

write ('введите а: ');

readln (a);

write ('введите b: ');

readln (b);

write ('введите c: ');

readln (c);

if (a - b) > 0 then

begin

if (a - c) > 0 then

writeln ('a - наибольшее!');

end;

if (b - a) > 0 then

begin

if (b - c) > 0 then

writeln ('b - наибольшее!');

end;

if (c - a) > 0 then

begin

if (c - b) > 0 then

writeln ('c - наибольшее!');

end;

end.