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

var a,b:real;beginread (a,b);if (a>b) then writeln (b);if (a<b) then writeln (a);if (a=b) then writeln ('Они равны');end.