напечатайте числа в виде таблицы 333

program p1;
var i:integer;
begin
for i:=1 to 9 do
begin
write(3);
if (i mod 3)=0 then writeln;
end;
end.