Var med, t, i: integer;
begin
med:=100;
writeln('Введите t>> ');
read(t);
for i:=2 to t do
begin
med:=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.