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

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

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