// 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.