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. где ошибка?

{
Ужасный код, куча абсолютно бесполезных begin end, которые не стоят друг под другом, что только загромождает код! Ошибка в том, что Вы не форматируете код, и не видите, какой end закрывает какой begin. Уберите их из кода и получите:
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
    max := a
  else
  if (b >= a) and (b >= c) and (b >= d) and (b >= e) then
    max := b
  else
  if (c >= b) and (c >= a) and (c >= d) and (c >= e) then
    max := c
  else
  if (d >= b) and (d >= c) and (d >= a) and (d >= e) then
    max := a
  else
    max := e;
  writeln('наибольшее число ', max);
end.

Форматирование кода:
   if () then
        begin
            оператор1;
            оператор2;
        end
   else
        begin
            оператор1;
            оператор2;
        end;
}


Включите мозг и напишите нормальный код
program gg;

var
  a, b, c, d, e, max: integer;

begin
  writeLn('введите пять целых чисел');
  read(a, b, c, d, e);
  max:=a;
  if b > max then max:=b;
  if c > max then max:=c;
  if d > max then max:=d;
  if e > max then max:=e;
  Writeln(max);
end.

or
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var (a,b,c):=readinteger3;
var (d,e):= readinteger2;
Writeln(max(a,max(b,max(c,max(d,e;
end.

Const
N = 30;
Var
Days:array[1..N] of boolean;
B,A,i:integer;
Begin
B:=random(15,100);
A:=random(60,100);
WriteLn('Высота дерева: ',B/10,' м');
WriteLn('Высота подъёма улитки: ',A,' см');
Write('Погода: ');
For i:= 1 to N do
    Begin
    if random(2) = 1 then Days[i]:=true
    else Days[i]:=false;
    if Days[i] then Write('солнечно ')
    else Write('пасмурно ')
    End;
WriteLn;

For i:= 1 to N do
    Begin
    if Days[i] then
       Begin
       if A+3<=B then A:=A+3
       else A:=B;
       End
    else
       Begin
       if A-2>=0 then A:=A-2
       else A:=0;
       End
    End;
Write('Высота поъёма улитки: ',A/10,' м')
End.

✅ Нил - 6 853 км, Река берёт начало на Восточно-Африканском плоскогорье и впадает в Средиземное море. В верхнем течении принимает крупные притоки — Эль-Газаль (левый) и Ачва, Собат, Голубой Нил и Атбара (правые). Ниже устья правого притока Атбары Нил течёт по полупустыне.
✅ Янцзы - 6 300 км, Исток данной реки находится в Тибетском нагорье, в его восточной части, к западу от реки Гренлаудан Тагла. Янцзы протекает через провинции Цинхай, которые расположены в восточной области Китая, а затем разворачивает к югу и по глубокой долине, служит границей между Тибетом и Сычунем, при подходе к провинции Юньнань.
✅ Амазонка - 6 437 км, Бо́льшая часть бассейна Амазонки принадлежит Бразилии, юго-западные и западные районы — Боливии, Перу, Эквадору и Колумбии. Протекая большей частью по Амазонской низменности в субширотном направлении близ экватора, Амазонка впадает в Атлантический океан
✅ Миссисипи - 3 734 км, Исток расположен в штате Миннесота на высоте примерно 530 м над уровнем моря. Река в основном течёт в южном направлении и достигает длины в 3770[2] километров, заканчиваясь обширной дельтой в Мексиканском заливе. Сама река протекает по территории 10 штатов, а её бассейн охватывает 31 штат от Скалистых гор до горной системы Аппалач
✅Обь-Иртыш - 4 248 км, Протекает по территории Китая, Казахстана и России.
Истоки Иртыша находятся на границе Монголии и Китая, на восточных склонах хребта Монгольский Алтай. Из Китая под названием Чёрный Иртыш, Эрцисыхэ он попадает в Казахстан, проходит через Зайсанскую котловину, впадает в проточное озеро Зайсан. В устье Чёрного Иртыша находится большая дельта. В районе Ханты-Мансийска Иртыш впа
✅ Енисей - 3487 км, Енисей начинается в городе Кызыле при слиянии Большого Енисея и Малого Енисея (Сибирь) Ниже посёлка Усть-Порт начинается собственно дельта Енисея. Бреховскими островами русло Енисея делится на множество протоков. Ниже Енисей течёт в одном русле, в «горле», образуя Енисейский залив Карского моря.
✅ Ангара - 1779 км., Ангара начинается из Байкала потоком шириной 1,1 км и течёт сначала в северном направлении. После излучины на Ангаре, ниже Братского водохранилища, расположено Усть-Илимское. Затем река поворачивает на запад — в Красноярский край, где рядом с поселком Стрелка Лесосибирского городского округа впадает в Енисей
✅ Хуанхэ - 5 464 км, Хуанхэ протекает в общей сложности через семь современных провинций и два автономных района,
✅ Амур - 2 824 км., Протекает по территории России и границе России и Китая.
✅ Шилка - 555 км., Река образуется слиянием Онона и Ингоды. Протекает в долине между Шилкинским и Амазарским хребтами на севере и Борщовочным хребтом на юге
✅ Онон - 818 км., Берёт начало в Монголии в восточной части нагорья Хэнтэй в месте сочленения хребтов Хэнтийн-Нуруу и Их-Хэнтэй на территории национального парка Хан-Хэнтэй-Нуруу, течёт по Хэнтэй-Чикойскому нагорью (в русле — острова), в низовьях — между Могойтуйским и Борщовочным хребтами. Сливаясь с Ингодой, образует реку Шилку
✅ Лена - 4400 км., Протекает по территории Иркутской области и Якутии
✅ Конго - 4700 км., река в Центральной Африке, главным образом в Демократической Республике Конго (частично протекает по его границам с Республикой Конго и Анголой