Дано натуральное число .Определить , является ли оно составным.СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ! Заранее спасибо.

CategoriesЛитератураПредмет

Дано натуральное число .Определить , является ли оно составным.СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ! Заранее спасибо.

Ответы:

var a,

begin

readln(a),

if (a mod 2 =0) or (a mod 3 = 0) or (a mod 5 =0) then writeln(Chislo sostavnoe) else

writeln(Chislo prostoe),

readln,

end.