{* Задача 577 *}

Unit ZADACH577;
Interface
Implementation
Begin
 writeln('Программа – льстец. На экране появляется вопрос: «Кто ты мальчик или девочка? Введи Д или М». В зависимости от ответа на экране должен появиться текст «Мне нравятся девочки!» или «Мне нравятся мальчики!».');
End.

Program zadach577;

Uses zadach577.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Label 1;
Var {* В работе нам потребуются переменные: *}
  s : String;
Begin
  Clrscr; {* Очистка экрана *}
  Write ('Кто вы мальчик или девочка? ("Д" или "М"-');
  read (s);
  If (s = 'Д') Or (s = 'д')  Or (s = 'L') Or (s = 'l') Then
  Begin
    write('Мне нравятся девочки');
    Goto 1;
  End;
  If (s = 'М') Or (s = 'м') Or (s = 'V') Or (s = 'v') Then
  Begin
    write('Мне нравятся мальчики');
    Goto 1;
  End;
  write('Ответ не понятен!!!');
  1 : Readkey; {* Ждем нажатия любой клавиши *}
End.