Составить программу для определения минимума для двух значений на языке pascal

Var
a,b :integer;
Begin
Read(a,b);Write('Меньшее -> ');
if (a < b) then Writeln(a) else writeln(b);
end.