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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.