Cod sursa(job #421392)

Utilizator MADAlinCNNGColezea Madalin MADAlinCNNG Data 21 martie 2010 13:41:03
Problema Copii Scor 0
Compilator fpc Status done
Runda Algoritmiada 2010, Runda 4, Clasele 5-8 Marime 0.24 kb
Raporteaza aceasta sursa 
program copii;
var f,g:text;
    n:byte;
begin
assign(f,'copii.in');reset(f);
assign(g,'copii.out');rewrite(g);
readln(f,n);
if n=2 then
   write(g,1)
else if n=3 then
        write(g,3)
else write(g,n);
close(f);close(g);
end.