Составьте програму, которая запрашивает 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.