Паскаль АВС :дано 2 числа а,б вивести найменше з них​

program meister;

var a,b:integer;

begin

writeln('Введите a: ');

readln(a);

writeln('Введите b: ');

readln(b);

if a< b then writeln("больше число a")

else writeln("больше число b");

end.