Question

Написать программы. Программа-льстец. На экране появляется вопрос "Кто ты: мальчик или девочка? Введите Д или М". В зависимости от ответа должен появиться текст " Мне нравятся девочки!" или " Мне нравятся мальчики!"

Answer 1

Var
a:string;
begin
 writeln('Кто ты: мальчик или девочка?');
 readln(a);
  if (a='Д') or (a='д')  then
  writeln('Мне нравятся девочки!   ');
  if (a='М') or (a='м')  then
  writeln('  Мне нравятся мальчики!  ');
 end.

Answer 2

Вот вариант:   (смотри скрин)