lets STUDY

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