Пользователь вводит натуральное n. Программа выводит все числа от 1 до n. По 5 в строке, через запятую. Например, для n=13 результат будет следующий 1,2,3,4,5 / 6,7,8,9,10 / 11,12​

Ответ:

var n,k,l,i,j:integer;

begin

write ('n = ');

read (n);

k:=1;

l:=5;

for j:=1 to n div 5 do

begin

for i:=k to l do

if i=l then write (i)

else write (i,',');

writeln;

k:=l+1;

l:=l+5

end;

for i:=k to n-1 do

if i=n-1 then write (i)

else write (i,',')

end.