lets STUDY

program deret_angka;
uses wincrt;
var i,j : integer;
begin
for i:=1 to 10 do
i:= i+1;
begin
for j:=1 to i do
write (j,' ');
end;
writeln;
end.