program funkci9;
var y,x:integer;
begin
x:=-4;
writeln ('y x');
while x<=4 do
y:=abs(x+2)
writeln (y,' ',x);
x:=x+1;
end:
readln
end.
program funkci9;
var y,x:integer;
begin
x:=-4;
writeln ('y x');
while x<=4 do
begin
y:=abs(x+2)
writeln (y,' ',x);
x:=x+1;
end:
readln
end.