Question

Составить программу вычисления минимального из трех чисел x,y,z. Использовать процедуру

Answer 1

var a, b, c, n :integer; 
procedure max(a,b:integer; var c :integer); 
begin 
   if a>b then c:=a else c:=b; 
end;
begin
   read (a,b,c);
   max(a,b,a);
   max(a,c,a);
   write (a);
end.