Cod sursa(job #251854)
| Utilizator |  alexandru catalisan basketbalistu92 |
Data | 3 februarie 2009 14:53:55 |
|---|---|---|---|
| Problema | Fructe | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.21 kb |
program fructe;
var p,b:longint;
begin
assign(input,'fructe.in');reset(input);
assign(output,'fructe.out');rewrite(output);
readln(p,b);
if b mod 2=0 then write(0) else write(1);
close(input);close(output);
end.