Для данного вещественного x найти значение следующей функции

uses crt;
var x,y:real;
    w:char;
begin
clrscr;
repeat
write('x=');
readln(x);
if x<=0 then y:=-x
else if (x>0)and(x<2) then y:=x*x
else y:=4;
writeln('y=',y:0:2);
writeln('Повторить? да Y/y, нет-любой символ');
readln(w);
until not (w in ['Y','y']);
end.

var w:string;
.....................
writeln('Повторить? да Y,y,Yes,yes  нет-любой символ');
readln(w);
until (w<>'Y')and(w<>'y')and(w<>'Yes')and(w<>'yes');

var x,y:real;
    w:string;//вот это

uses crt;
var x,y:real;
    w:string;
begin
clrscr;
repeat
write('x=');
readln(x);
if x<=0 then y:=-x
else if (x>0)and(x<2) then y:=x*x
else y:=4;
writeln('y=',y:0:2);
writeln('выйти из программы? да-Y,y,yes,Yes, нет-любой символ');
readln(w);
until not (w<>'Y')and(w<>'y')and(w<>'Yes')and(w<>'yes');
end.

writeln('выйти из программы? да-Y,y,yes,Yes, нет-любой символ');
readln(w);
until  (w='Y')or(w='y')or(w='Yes')or(w='yes');