Написать программу и определить максимальное значение из пяти целых чисел!!!!!
ПОМОГИТЕ ПОЖАЛУЙСТА!!!

Procedure maximum(a,b:integer; var max:integer);
begin
if a>b then max:=a
else max:=b;
end;
var x,y,z,q,w,max:integer;
begin
writeln (Введи 5 чисел);
Readln (x,y,z,q,w);
maximum(x,y,max);
maximum(max,z,max);
maximum(max,q,max);
maximum (max,w,max);
writeln (max);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.