Cod sursa(job #504885)
| Utilizator |  Marin Tiberiu tibi9876 |
Data | 29 noiembrie 2010 12:46:52 |
|---|---|---|---|
| Problema | Tablete | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.21 kb |
var n,k,i,j:integer;
begin
assign(input,'tablete.in');reset(input);
assign(output,'tablete.out');rewrite(output);
readln(n,k);
for i:=1 to n do
begin
for j:=1 to n do
write(n*(i-1)+j,' ');
writeln;
end;
end.