лабораторная работа / вар18 / исходник

program lab2(input,output);
var z,x:real;
begin
write('x');
read(x);
if x<-1 then z:=0
        Else if x>=-1 then z:=1-abs(x)
                      else if x<=1 then z:=1-abs(x)
                                   Else if x>1 then z:=0;
writeln('z=',z:8:6);
end.