Без рук, без ног под окном стучится.в дом

Ответ: ветер.

Ябы так написал: var n,i: longint;       b: boolean; begin   repeat     write ('число = ');     readln(n);   until n > 0;   b: =false;   for i: =2 to n div 2  do     if n mod i = 0 then     begin       b: =true;       break;     end;   if (not b) and (n < > 1)  then writeln ('простое') else writeln ('составное');   readln; end.

Pascal: var n: longint; begin   write ('n = ');   readln(n);   if n mod 2 = 0 then writeln ('да') else writeln ('нет');   readln; end. c++: #include < iostream> #include < conio.h> int main()   {     setlocale (lc_ctype,"russian");     int n;     std: : cout < < "n = ";     std: : cin > > n;     if (n%2 == 0)     {       std: : cout < < "да" < < std: : endl;     }   else     {       std: : cout < < "нет" < < std: : endl;       }     getch();     return 0;   }