Ответы и объяснения

2012-05-25T16:38:04+04:00

program tablicia;

var

   x,y :integer;

Begin

  for x:=-10 to 10 do begin

   y:=x+2;

   writeln('X= ',x,'     Y= ',y);

  end;

readln;

End.