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

Question

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

Answer 1

Var a,b:real;
begin
read (a,b);
if (a>b) then writeln (b);
if (aif (a=b) then writeln ('Они равны');
end.