// 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  if c  Writeln('Минимальное из чисел равно ',m);
  Readln
end.