Cod sursa(job #51260)

Utilizator dushmiMihai-Alexandru Dusmanu dushmi Data 10 aprilie 2007 17:59:57
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
var n:longint;
    f1,f2:text;
begin
assign(f1,'fractii.in');reset(f1);
assign(f2,'fractii.out');rewrite(f2);
read(f1,n);
if n=1 then write(f2,'1')
        else
                if n=2 then write(f2,2+1)
                        else
                                if n>=2 then write(f2,n*n-(n+1));
end.