Написать программу для нахождения меньшего из чисел. Записать результат работы программы после введения значений а:=7, b:=5. Язык: паскаль

var a, b: integer;

begin

Write('Ведите числа a и b: '); ReadLn(a, b);

if a > b then WriteLn(a, ' больше ', b)

else if b > a then WriteLn(b, ' больше ', a)

else WriteLn('Числа равны');

end.