вычислить и вывести все значения y по формуле y=4-x для всех целых значений x от 1 до n.Пожалуйста, скорее. Завтра же нужно сдать работающую программу.

var
  x,n:integer;
begin
  Write('n='); Read(n);
  for x:=1 to n do
    Writeln(x:5,4-x:10)
end.
 

n=10
    1         3
    2         2
    3         1
    4         0
    5        -1
    6        -2
    7        -3
    8        -4
    9        -5
   10        -6