паскаль: Пух на дне рождении кролика впервый час съел 100 грамм меда.А за тем каждый час съедал на 50 грамм больше.Сколько меда он съест за t часов?

по данному алгоритму получается, что в час он ел ровно 50 гр. а таки условие было, он каждый час съедал на 50 гр БОЛЬШЕ, чем за предыдущий.

Исправил

var med, t, i: integer;beginmed:=100;writeln('Введите t>> ');read(t);for i:=2 to t dobeginmed:=med+i*50;writeln(med, ' через ', i, ' часов');end;writeln(med, ' грамм');end.

var  m,t,s,i:integer;begin  Write('Сколько часов Пух не вставал из-за стола: ');  Readln(t);  if t=1 then Writeln('через 1 час - 100 грамм')  else   begin    s := 100;    m := 100;    for i:= 2 to t do    begin      s := s+50;      m := m + s;    end;    Writeln('через ',t,' часов',m,' грамм');  end;end.