Напишите программу которая выводит на экран слово "женский" при вводе символа ж и словa " мужской" при вводе символа м

Var a: char; begin       readln(a);       if (a = 'м') then writeln('мужской');       if (a = 'ж') then writeln('женский'); end.проверил =)

//дано трехзначное число найдите сумму его цифр var x,y,i: word; begin writeln('введите трехзначное число'); readln (x); while (999< x) or (x< 100) do //в цикле проверяется "трехзначность" числа   begin       writeln('вы ввели не трехзначное число попробуйте еще раз');     readln (x);   end; for i: =1 to 3 do // число делиться на цифры       begin         y: =y+x mod 10;         x: =x div 10;       end; writeln('сумма цифр данного числа ',y); end.

Dev-c++ #include < iostream> using namespace std; int main() {       int i, n;       cout< < "введите количество элементов: ";       cin> > n;       int a[n];       for (i=0; i< n; i++) {             cout< < "введите "< < i+1< < "-й элемент: ";             cin> > a[i];       }       int sump=0, koln=0;       for (i=0; i< n; i++) {                     if (a[i]< 0) koln++;                     else if (a[i]> 0) sump+=a[i];       }       cout< < "сумма положительных равна "< < sump< < endl;       cout< < "количество отрицательных равно "< < koln< < endl;       system("pause");       return 0; } тестовое решение: введите количество элементов: 10 введите 1-й элемент: 4 введите 2-й элемент: 0 введите 3-й элемент: -2 введите 4-й элемент: 6 введите 5-й элемент: 5 введите 6-й элемент: 0 введите 7-й элемент: -5 введите 8-й элемент: -2 введите 9-й элемент: 7 введите 10-й элемент: -4 сумма положительных равна 22 количество отрицательных равно 4 для продолжения нажмите любую клавишу . .