Задача на языке Паскаль найти меньшее из двух чисел
var a, b: integer;
begin
read(a, b);
writeln(min(a, b));
end.