Question

По заданной блок-схеме составьте программу на языке Паскаля.

Answer 1

Program n1;
var x,y: real;
begin
readln(x);
if x<0 then y:=-x else begin
if x<1 then y:=x else begin
if x<=2 then y:=1 else y:=-x+3;
end;
end;
write(y);
end.