Cod sursa(job #464218)

Utilizator 05_YohnE1 La5c01 05_Yohn Data 19 iunie 2010 13:08:21
Problema Lacate Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var i,j,n,l,c:integer;
begin
assign(input,'lacate.in');reset(input);
assign(output,'lacate.out');rewrite(output);
read(n);
l:=n*(n-1) div 2;
writeln(l,' ',n-1);
c:=1;
for i:=1 to n do begin
    for j:=1 to n-1 do begin
        write(c,' ');
        inc(c);
        if c>l then c:=1;
        end;
    writeln;
end;
close(output);
end.