program gg;
var a,b,c,d,e,max:integer;
begin
writeLn('введите пять целых чисел');
read(a,b,c,d,e);
if (a>=b) and (a>=c) and (a>=d) and (a>=e) then begin
max:=a;
end
else begin
if (b>=a) and (b>=c) and (b>=d) and (b>=e) then begin
max:=b;
end
else begin
if (c>=b) and (c>=a) and (c>=d) and (c>=e) then begin
max:=c;
end
else begin
if (d>=b) and (d>=c) and (d>=a) and (d>=e) then begin
max:=a;
end
else begin
max:=e;
end;
writeln('наибольшее число ',max);
end.
где ошибка?