Dmitr0 Var x,y:real;
begin
x:=-3;
while x<=3 do begin
y:=3*x+9;
x:=x+0.5;
writeln(y);
end;
end.