Cod sursa(job #137579)

Utilizator AndreiDDiaconeasa Andrei AndreiD Data 17 februarie 2008 12:44:13
Problema Lampa Scor 0
Compilator fpc Status done
Runda preONI 2008, Runda 4, Clasa a 9-a Marime 0.32 kb
Raporteaza aceasta sursa 
var n,m:longint;
f,g:text;
begin
assign(f,'lampa.in');reset(f);
assign(g,'lampa.out');rewrite(g);
read(f,n,m);
if ((m mod 10) mod 2)=1 then write(g,'0')
                     else begin writeln(g,'astro');
                                writeln(g,'buru');
                                end;
close(f);
close(g);
end.