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

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

Answer 3

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

Answer 4

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

Answer 5

uses GraphABC;

 
procedure KeyDown(Key: integer); 
begin

 
    

   case Key of
  
       VK_Escape : Halt;
  VK_L:  Writeln ('Мне нравятся девочки! ');
  
    
   end;
end;
procedure KeyUp (Key: integer);
begin
case Key of
VK_V: Writeln ('Мне нравятся мальчики! ');

VK_O: end;  
end;
begin
 begin
 writeln ('Кто ты: мальчик или девочка?');
 end;
  // Привязка обработчиков к событиям

  OnKeyDown := KeyDown;
  OnKeyUp := KeyUp
end.