12345

PROGRAM biriki;
VAR i,j: INTEGER;
BEGIN
j:=j+1;
for i:=1 to 3 do

..begin
.....for j:=1 to 5 do
.......begin
........write(j );
.......end;
..writeln;
..end;

READLN;
END.