program ;var a1, d, k, i: integer;begin writeln(\'введите k\'); readln(k); a1 := 40; d := -5; i := 1; while i <= k do begin writeln(a1); a1 := a1 + d; i := i + 1; end;end.Другой вариант от // PascalABC.NET 3.1, сборка 1250 от 28.05.2016program;begin SeqGen(ReadInteger(\'k=\'),40,x->x-5).Printlnend.