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

procedure maximum(a,b:integer; var max:integer);beginif a>b then max:=aelse max:=b;end;var x,y,z,q,w,max:integer;beginwriteln ('Введи 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.

{ Лаконично :) }begin  var a: array [1..5] of Int64;  var i: byte;  for i := 1 to 5 do readln(a[i]);  writeln('Max: ', System.Math.Max(a[1], System.Math.Max(a[2], System.Math.Max(a[3],             System.Math.Max(a[4], a[5])))));end.