Question

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

Answer 1

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.