Cod sursa(job #237367)

Utilizator MihaiBunBunget Mihai MihaiBun Data 29 decembrie 2008 16:45:54
Problema Tablete Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
program table;
var a:array[1..1000,1..1000] of longint;
    n,k,i,j,d:longint;
    f:text;
begin
  assign(f,'tablete.in');
  reset(f);
  readln(f,n,k);
  close(f);
  assign(f,'tablete.out');
  rewrite(f);
  d:=0;
  for i:=1 to n do
  begin
  for j:=1 to n do
  begin
  d:=d+1;
  write(f,d);
  end;
  writeln(f);
  end;
  close(f)
end.