Перевести программу на язык с++ program prime; var i, number: integer; isprime: boolean; begin readln(number); {получить число для проверки} isprime: =true; for i: =2 to number-1 do if (number mod i=0) then {если остаток от деления равен 0, значит найден делитель} begin isprime: =false; {записать, что число не простое} break; {прервать цикл, т.к. больше не надо} end; writeln(isprime); end.