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

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

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

uses crt; var a,b,c,min: integer; beginwriteln('введи три числа: '); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln('наименьшее из этих чисел:   ',min); readln; end.

в пятиричной системе каждый следйющий разряд учеличивает число в 5 раз. раз приписали два разряда, получаем: 5 * 5 = 25 

число увеличилось в 25 раз.

например, число 12 в пятиричной системе равно числу 7 у десятичной.

привисываем два нуля: 1200 в пятеричной равно числу 175 в десятичной.

175 : 7 = 25.