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

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

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

program xxx;

  var a, b, s : real;

              r, p, d : real;

begin

    write ('введите певрое число- ');

    readln (a);

    write ('введите второе число- ');

    readln (b);

    s: = a+ b;

    r : = a - b;

    p : = a* b;

    d : = a/b;

    writeln ('сумма =', s);

    writeln ('разность =', r);

    writeln ('произведение =', p);

    writeln ('частное = ', d);

    readln

end.

32 - вопроса, 32 - ответа