Ответ их произведение мощность алфавита это его объём
Мне кажеться 2 правильно,а это в каком приложении надо сделать?
Заключи то что после if в скобки и будет тебе счастье. И ' ; ' убери после g mod 2 =0.
и в действии перед if в конце поставь ' ; '.
Program chet;
var i,k,n:integer;
begin
readln(n);
for i:=1 to n do
begin
if n mod i = 0 then k:=k+1;
end;
if k=2 then writeln('число,',n,',натуральное')
else writeln('число,',n,',не натуральное');
<span>end.</span>