Найти максимальное из 4 целых чисел с помощью процедуры для 2 целых чисел. В чем ошибка? - Pascal
Формулировка задачи:
найти максимальное из 4 целых чисел с помощью процедуры для 2 целых чисел
var a,b,c,d,max:integer;
Procedure maximum(a,b,c,d,r:integer);
begin
if a>=b then r:=a
else r:=b;
if b>=c then r:=b
else r:=c;
if d>r then r:=d;
end;
begin
writeln('vvedite a,b,c,d');
readln(a,b,c,d);
writeln ('max: ', max);
readln;
end.Решение задачи: «Найти максимальное из 4 целых чисел с помощью процедуры для 2 целых чисел. В чем ошибка?»
textual
Листинг программы
Procedure maximum(a,b:integer; var c:integer);
begin
if a>b then c:=a else c:=b;
end;
var a,b,c,d,m,m1,m2:integer;
begin
writeln('vvedite a,b,c,d');
readln(a,b,c,d);
maximum(a,b,m1);
maximum(c,d,m2);
maximum(m1,m2,m);
writeln ('max: ',m);
readln;
end.