Cod sursa(job #254725)

Utilizator MihaiBunBunget Mihai MihaiBun Data 7 februarie 2009 13:53:49
Problema Planeta Scor 0
Compilator fpc Status done
Runda Stelele Informaticii 2009, clasele 9-10, ziua 2 Marime 0.28 kb
Raporteaza aceasta sursa 
program kk;
var f:text;
       n,k:longint;
begin
assign(f,'planeta.in');
reset(f);
readln(f,n,k);
close(f);
assign(f,'planeta.out');
rewrite(f);
if n=1 then write(f,1);
if n=2 then if k=1 then write(f,1,' ',2)
                   else write(f,2,' ',1);


close(f);
end.