Информатика. Что не так с программой?

Var x, y: real;

Begin

Writeln (' введите переменную х');

Readln (x);

If x<=3 then y:=x*x+sin(2*x+3.14/6)

Else

If x>=5 then Y:=ln(x*x+3*x) else y:=sqrt(sqr(sin(x))+abs(x));

Writeln('x= ',x:7:3, ' y= ',y:7:3);

End.

Объяснение:

вместо икс была введена русская буква х

и вместо x<=3  было х<-3

в ответе исправленный вариант

папирусы хранили в виде свитков, сворачивая длинную папирусную ленту, склеенную из отдельных листов, в трубку. 

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.