10 баллов! Напечатайте числа в виде таблицы (т.е. написать программу в Паскале)
3 3 3
3 3 3
3 3 3

var n,i,j:integer;beginreadln(n);for i:=1 to n dobegin;writeln;for j:=1 to n dowrite(n:3);end;end.