Anonymní profil Vít – Programujte.com

Já bych to řešil obyčejným cyklem:

var i, n: integer;
begin
write('1');
n:= 2;
for i:=1 to 21 do begin
write( ',', n );
n:= n+i;
end;
writeln;
end;