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.