Cod sursa(job #51263)

Utilizator dushmiMihai-Alexandru Dusmanu dushmi Data 10 aprilie 2007 18:09:34
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.36 kb
var n:longint;
    f1,f2:text;
begin
assign(f1,'fractii.in');reset(f1);
assign(f2,'fractii.out');rewrite(f2);
readln(f1,n);
if n=1 then write(f2,'1')
        else
                if (n>=2) and (n<=2) then write(f2,n*n-(n-1))
                        else
                                if (n>4) or (n=4) then write(f2,n*n-(n+1));
close(f1);
close(f2);
end.