Решить две с "паскаля" 1)ученик выучил в первый день 5 слов ,а последующие дни он учил на два слова больше чем в предыдущие через сколько дней он выучит 250 слов? 2)вычислить сумму и произведения натурального числа от 1 до 20.

1.
var k,x,y:integer;
begin
  x:=5; k:=1;
  while y<250 do
  begin
    x:=x+2;
    y:=y+x;
    k:=k+1;
  end;
  writeln(k);
end.
2.
var s,p,x:longint;
begin
  for x:=1 to 20 do
  begin
    s:=s+x;
    p:=p*x;
  end;
  writeln('Сумма=',s,'. Произведение=',p);
end.