заштрихованная часть на рисунке

[Raphael]

D - заштрихованная часть на рисунке. Дана точка с координатами (x,y). Если (x,y) принадлежат D, то U(x) = сумма от k=1 до 10 (1)/((x^3)*(k^3))

program  shtrih;
const  n=10;
var  x,у:real;
k,s:integer;
begin
writeIn   ('vedite  koordinaty  tochek');
readln   <x,y>;
if (sqr(x)+sqr(y)>4) and (x>=-2) and (x<=2) and (y>=-2) and (y<=2)
and ((х>0) and (y<0) or (x<0) and (y<0) or (x<0) and (y>0))
then  For k:=1  to  n  do
s:=s+(1)/(Exp<3*ln(x)));
write('s');
end.

Выдает ошибку type mismatch

[Прик]

const  n=10;
var  x,у, s :real; {y - русская буква, а s не может быть Integer}
k{,s}:integer;
begin
writeIn   ('vedite  koordinaty  tochek'); {writeLn}
readln   <x,y>;  {что за скобки?}
{в выражении ниже где-то тоже есть русская буква}
if (sqr(x)+sqr(y)>4) and (x>=-2) and (x<=2) and (y>=-2) and (y<=2)
and ((х>0) and (y<0) or (x<0) and (y<0) or (x<0) and (y>0))
then  For k:=1  to  n  do
s:=s+(1)/(Exp<3*ln(x)){)}; {лишняя скобка и что за Exp<3}
write('s');

Учим матчасть.

[Raphael]

const  n=10;
var  x,y,s:real; 
k:integer;
begin
writeln   ('vedite  koordinaty  tochek');
readln   (x,y);
if (sqr(x)+sqr(y)>4) and (x>=-2) and (x<=2) and (y>=-2) and (y<=2)
and ((x>0) and (y<0) or (x<0) and (y<0) or (x<0) and (y>0))
then  For k:=1  to  n  do
s:=s+(1)/(Exp(3*ln(x)))
write('s');
readln;
end.

исправил, но третью скобку он всё равно просит

[bondik]

write(s);

ковычки убери,ты выводишь не букву а переменную

[p51x]

s:=s+(1)/(Exp(3*ln(x)))

s:=s+1/Exp(3*ln(x));