Cod sursa(job #231572)

Utilizator lianaliana tucar liana Data 14 decembrie 2008 12:40:34
Problema Tablete Scor 0
Compilator fpc Status done
Runda Algoritmiada 2009, Runda 1, Clasele 9-10 Marime 0.34 kb
Raporteaza aceasta sursa 
program tablete;
var f, g:text;
    n, k, i, j:longint;
  begin
     assign(f,'tablete.in'); reset(f);
     assign(g,'tablete.out'); rewrite(g);
     readln(n,k);
     for i:=1 to n do
       begin
         for j:=1 to n do
           write(g,(i-1)*n+j,' ');
         writeln(g);
       end;

     close(f);
     close(g);
  end.