Паскаль. скажите где ошибка

[lect111]

Должно вычисляться значение y по заданному значению x


Program Variant_;
Uses CRT;
Var x, y : Real;
Begin
Write('x=');
ReadLn(x);
If (x>=0.0) and (x<1.0) Then
y:=sqrt(1.0-trunc(x)*trunc(x))
Else If (x>=1.0) and (x<2.0) Then
y:=abs(sqrt(1.0-frac(x)*frac(x))
Else If (x>=3.0) and (x<4.0) Then
y:=abs(sqrt(1.0-frac(x)*frac(x))-1.0
Else If (x>=4.0) and (x<5.0) Then
y:=sqrt(1-trunc(x)*trunc(x))
Else (x=6) Then
y:=0.0;
WriteLn('y=', y:3:1);
End.

[Serge_Bliznykov]

во-первых, не хватает закрывающих скобок:

     y:=abs(sqrt(1.0-frac(x)*frac(x))
   Else  If (x>=3.0) and (x<4.0) Then
       y:=abs(sqrt(1.0-frac(x)*frac(x))-1.0

считайте, в выделенном выражении сколько открывающих скобок и сколько закрывающих!
компилятор Паскаля же прямо Вам об этом сообщает!

во-вторых

Else (x=6) Then

что такое else then ?! Вы ничего не пропустили?!

[lect111]

Всё спасибо я уже сам додумал там лишнего на вставлял)))