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

Question

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

Answer 1

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