Составить программу: получить первые k членов арифметической прогрессии с первым членом,равным сорока ,и разностью минус 5.

PascalABC
beginvar x:=40;var k:integer;write('Введите k. Вы ввели ');read(k);write(x);for var i:=1 to k dobeginx+=5;write(' ',x);end;end.