Question

В чём проблема выдаёт ошибку 7 строчка ((помогите)) PascalABC
program калькулятор_степеней;

var x,n:integer;
var c,R:real;
var u,s,ns,ss:boolean;
begin


writeln('вычисление степеней');
((readln(s);))
if ss=true then begin
ns:=false;
s:=false
end;

if ss=false then begin
writeln('вычисление суммы');
readln(s);
if s=true then ns:=false
else begin

writeln('вычисление разности');
readln(ns);
end;
end;




if (s=false)and(ns=false)and(ss=true) then begin
writeln('основание степени');
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 begin
R:=c;
x:=2;

while x<=n do
begin
R:=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 begin
R:=1;
x:=-1;

while x>=n do
begin
R:=R/c;
x:=x-1;
end;

end;

if u=false then begin
writeln('результат');
writeln(R);
end;

if u=true then writeln('не определено');

end;

if (s=true)and(ns=false)and(ss=false) then begin
writeln('введите слогаемые(через пробел)');
readln(R,c);
R:=c+R;
writeln('результат');
writeln(R);
end;

if (s=false)and(ns=true)and(ss=false) then begin
writeln('введите уменьшаемое и вычитаемое(через пробел)');
readln(R,c);
R:=R-c;
writeln('результат');
writeln(R);
end;


end.

Answer 1

Ошибку выдаёт вот здесь ((readln(s);)) из-за скобок. При readln(s); программа выполняеться без ошибок.

Суть ошибки в том, что Вы заканчиваете строку скобкой, а не ; . Возможно скобки были поставлены случайно.