Запишите программу нахождения минимума из трёх целых чисел, ab,c

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,b,c:integer;
begin
  readln(a,b,c);
  writeln('Минимальное ', min(min(a,b),c));
end.

Тестовое решение:
67 34 89
Минимальное 34