Определите. Степень окисления кислорода в соедененияхформулы которых SO3 h2o f2o fe2o3 feo

в чем ошибка? сразу выделяет вторую строку и пишет ошибку declaration expected but identifier 's' found

я уже весь интернет облазила, но не понимаю, в чем суть ошибки

uses
  SysUtils;
  s,k,n:integer;
begin

 writeln('vvedite n');
 readln(n);
 s:=0;
 k:=1;
 for i:=1 to n do
  s:=i*(sqr*k);
  i:=i+1;
  writeln('s=',s:4:3);
  { TODO -oUser -cConsole Main : Insert code here }
end

После специального ухода за кустами садовод с 6 кустов смородины получил такой же урожай, как прежде с 8 кустов. На сколько процентов повысилась урожайность кустов? (Ответ округлите до едениц)
СПасибо большое кто поможет)