Cod sursa(job #2919785)

Utilizator cornel...ganea corneliu cornel... Data 19 august 2022 17:48:45
Problema Lacate Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.15 kb
Raporteaza aceasta sursa 
uses crt;
var
n,i,j:integer;
begin
read(n);
write(n-1,' ',n-1);
for i:=1 to n do begin
 writeln;
 for j:=1 to n-1 do write(j,' ');
end;
end.