В чём проблема выдаёт ошибку 7 строчка ((Пожалуйста посчитайте)) PascalABCprogram калькулятор_степеней;var x,n:integer;var c,R:real;var u,s,ns,ss:boolean;beginwriteln('вычисление степеней');((readln(s);))if ss=true then beginns:=false;s:=falseend;if ss=false then beginwriteln('вычисление суммы');readln(s);if s=true then ns:=falseelse beginwriteln('вычисление разности');readln(ns);end;end;if (s=false)and(ns=false)and(ss=true) then beginwriteln('основание степени');readln(c);writeln('показатель степени');readln(n);u:=false;if (n<=0)and(c=0) then begin u:=true ;end;if (n>=1)and(u=false) then beginR:=c;x:=2;while x<=n dobeginR:=R*c;x:=x+1;end;end;if (n=0)and(u=false) then R:=1;if (c=0)and(u=false) then R:=0;if (n<0) then beginR:=1;x:=-1;while x>=n dobeginR:=R/c;x:=x-1;end;end;if u=false then beginwriteln('результат');writeln(R);end;if u=true then writeln('не определено');end;if (s=true)and(ns=false)and(ss=false) then beginwriteln('введите слогаемые(через пробел)');readln(R,c);R:=c+R;writeln('результат');writeln(R);end;if (s=false)and(ns=true)and(ss=false) then beginwriteln('введите уменьшаемое и вычитаемое(через пробел)');readln(R,c);R:=R-c;writeln('результат');writeln(R);end;end.