Пользователь вводит два целых числа компьютер должен вывести на экран наименьшее из них

1

Ответы и объяснения

  • Участник Знаний
2014-02-28T12:13:08+00:00
Var a,b:real;
begin
read (a,b);
if (a>b) then writeln (b);
if (a<b) then writeln (a);
if (a=b) then writeln ('Они равны');
end.