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

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

паскаль

откомпилирован в: pascal abc

 

program z1; uses crt; var    s: string;     c: char;     i: integer; begin        write('  vvedite strocy:   ');         readln(s);                 writeln();                 write(' vvedite sivol dl poiska:   ');         readln(c);                 writeln();         for i : = 1 to length(s) do         if s[i] = c then //        begin                  writeln(' simvol prinadlech stroce = ', s);                   break;         end;         if s[i] < > c then writeln(' simvola net v stroke = ', s); end.

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.