книга игра

begin

write('Искаш ли да чукаш дъщеря ми y/n?');
readln(a);
if (a=y) then write('Трябва да чукаш първо мен y/n?');
    readln(b);
        if (b=y) then writeln('влизай')
        if (b=n) then writeln('оставаш на сухо')

if (a=n) then writeln('оставаш на сухо')
readln;
end.