Ответ:

program n_7;

var a, b, c, d, f: integer;

function min(x,y: integer): integer;

begin

if x>y then min:=y else min:=x;

end;

begin

writeln('Введите четыре целых числа');

readln(a, b, c, d);

f:= min(min(a,c), min(c,d));

writeln('Наименьшее из 4-х чисел= ', f);

end.

Объяснение: