С клавиатуры вводится число Х. Заполните массив 10 элементами, в котором: первый на 1 меньше Х, второй на 2 меньше Х, ... и т. д., десятый - на 10 меньше Х. (паскаль)

program zz1;

const n = 10; / / задаем количество элементов в массиве

var i, x:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

write (' введите заданное число Х '); / / с клавиатуры вводим заданное число

read (x);

for i:=1 to n do / / получаем n чисел согласно условию и записываем их в массив

m[i]:=x - i;

writeln (' Полученный массив: '); / / переходим на новую строку для вывода ответа

for i:=1 to n do / / выводим полученный массив на экран в строку

write (m[i],' ');

end.