На языке Паскаль ввести 4 числа и вывести большее из них

Составляем программу:

Var x, y, z: integer;

var M:Array[1 ... 4] of integer;

begin

z: = - 7000;

for var i: = 1 to 4 do

beginwriteln ('Введите число');

readln (M[i]);

if z< M[i] then z: = M[i];

end;

writeln (z : 4);

end.

Довольно непростое задание, но вполне решаемое. Введя эту программу вы наглядно увидите наибольшее число.