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

вдруг там вирус

А если    д    или    м  ?    То есть я ввел строчные буквы??? 

Надо было указывать в задании)

Подправлю сейчас

Какой?    Мне в больнице от гриппа уже поставили!!

Это уже по английски...   :))

uses GraphABC; procedure KeyDown(Key: integer); begin        case Key of         VK_Escape : Halt;  VK_L:  Writeln ('Мне нравятся девочки! ');         end;end;procedure KeyUp (Key: integer);begincase Key ofVK_V: Writeln ('Мне нравятся мальчики! ');VK_O: end;  end;begin begin writeln ('Кто ты: мальчик или девочка?'); end;  // Привязка обработчиков к событиям  OnKeyDown := KeyDown;  OnKeyUp := KeyUpend.

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