Cod sursa(job #237365)

Utilizator MihaiBunBunget Mihai MihaiBun Data 29 decembrie 2008 16:43:03
Problema Tablete Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.28 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);
  for i:=1 to n do
  for j:=1 to n do
  write(f,i*j);
  close(f)
end.