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