просто нужно что бы этот код Program Vitjok;
Uses CRT;
Var X,Y:Real;
Begin
Write('X= ');
Readln(X);
If (X<0) then Writeln('X out of range: negatives are forbidden!');
If X>4
then x:=x-4;
begin
If X<1 then
Y:=Sqrt(1-Sqr(X-1));
If (X>=1) and (X<3) then
Y:=1-Sqrt(1-Sqr(X-2)) else
Y:=1-Sqrt(1-sqr(x-3));
Writeln('Y= ',Y:0:3);
end;
End.
работал при вводе положительного числа