Program Numbering

PROGRAM TUGAS_1;
Uses Wincrt;
var
i,j,n: integer;
begin
write ('masukkan nilai n= ');
readln (n);
for i:=1 to n do

begin
for j:=1 to 3 do
writeln(i,'.',j);
end;

end.