Вычислить и вывести все значения 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

Var
  x, y, n: integer;
 
begin
  read(n);
  for x := 1 to n do
  begin
    y := 4 - x;
    writeln(y);
  end;
end.