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

Question

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

Answer 1

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.