Cod sursa(job #1233254)

Utilizator robertdx3Robert robertdx3 Data 25 septembrie 2014 00:59:48
Problema Lacate Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.25 kb
Raporteaza aceasta sursa 
program lacate;
var f : text;
    n,i : byte;
begin
    assign(f,'lacate.in'); reset(f);
    readln(f,n);
    close(f);

    assign(f,'lacate.out'); rewrite(f);
    writeln(f,1,' ',1);
    for i := 1 to n do
        writeln(f,1);
    close(f);
end.