Напечатать целые числа - 20, - 15, -10... 0,5,10,15,20В Pascal с помощью операторов For...

Question

Напечатать целые числа - 20, - 15, -10... 0,5,10,15,20
В Pascal с помощью операторов For или While

Answer 1

Program cikl;
uses crt;
var x,y:integer;
begin
write('веди нужное число');
read(x);
for y:=-25 to x do
write(' ',y);
inc(y);
end.