Составить на паскале программу определения минимума из трёх чисел c использованием логических операций. программа должна иметь дружественный интерфейс

// PascalABC.Net 3.0, сборка 1052
var
  a,b,c:integer;
begin
  Writeln('Введите три целых числа через пробел: ');
  Read(a,b,c);
  Writeln('Минимальное из чисел равно ',Min(c,Min(a,b)))
end.

{ Borland Pascal 7.01 }
uses Crt;
var
  a,b,c,m:integer;
begin
  ClrScr;
  Writeln('Введите три целых числа через пробел: ');
  Read(a,b,c);
  if a<b then m:=a else m:=b;
  if c<m then m:=c;
  Writeln('Минимальное из чисел равно ',m);
  Readln
end.