1. Посчитать сумму первых 10-ти ЧЕТНЫХ чисел. 2. Мальчик в первый день учит 5 слов, а в последующий на 2 слова больше, чем в предыдущий. Сколько слов будет знать мальчик через 10 дней. (на паскале)

1) var i, s, c: integer;   begin    s := 0;    i := 1;    c := 0;    while c < 10 do     begin      if(i mod 2 = 0) then       begin        c := c + 1;        s := s + i;       end;      i := i + 1;    end;      write(s);  end. 2) var i, s, k: integer;  begin   s := 0;   k := 5;   for i := 1 to 10 do   begin     s := s + k;     k := k + 2;   end;   write(s); end.