program chlapec_dievca;
uses crt;
var odpoved:char;
begin
writeln('Si chlapec? a/n');
readln(odpoved);
if odpoved='a' then writeln('Bud stastny... ');
if odpoved='n' then writeln('Bud stastna... ');
if (odpoved<>'a')and(odpoved<>'n') then
writeln('Mal si stlacit a, alebo n.');
readln;
end.