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

1

Ответы и объяснения

2013-11-27T14:24:54+00:00
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.