birdenonbeşekadar

PROGRAM bironbes;
VAR j: INTEGER;
BEGIN
..for j:=1 to 15 do
....begin
......if j mod 5=0 then
........begin
.........write(j:2);
.........writeln;
........end

......else
.......write(j:2);


......end;


READLN;
END.