Ученик решил, что в первый день занятий китайским языком он выучит 5 новых слов. Каждое следующее занятие он будет запоминать на 2 слова больше. Через сколько дней ученик будет знать не менее 300 слов? Напечатать таблицу количества заучивания слов на эти занятия — — Pascal(Паскаль)

Распечатать таблицу в следующем виде:
1 занятие - 10 новых слов, всего 10 слов
2 занятие - … новых слов, всего …слов
…………………………………………….
… занятие - … новых слов, всего … слов.

program vad;
var
   i,a,b,s:integer;
begin
 a:=5;
 b:=2;
 i:=1;
s:=5; 
repeat
  writeln (i,'-oe zanyatie - ',a,' novih slov, vsego ',s,' slov');
  i:=i+1;
  a:=a+b;
s:=s+a;
until s>=300;
writeln (i,'-oe zanyatie - ',a,' novih slov, vsego ',s,' slov');
writeln('dney=',i);
readln;
end.