Question

Написать программу которая складывает числа от 4 до 100

Answer 1

var i,sum:integer;
Begin
for i:=4 to 100 do
  begin 
      sum:=sum+i; 
      writeln('Summa#',i,'=',sum);
  end;
end.

Answer 2

Принципиальная ошибка. Нет начального присваивания переменной sum. Стандарт языка Pascal НЕ ОПРЕДЕЛЯЕТ, какое значение имеет неинициализированная переменная.