Uses crt;
var i,n,p,k:integer;
begin
clrscr;
readln(n);
for i:=2 to n div 2 do
if (n mod i = 0) then inc(k);
if k =0 then writeln('simple')
else writeln('not simple');
readln
end.
Минимально и нужно , интересно где еще такое задают
Я думаю, что ответ будет 2
<span>"дисковод, системная плата, блок питания"</span>
(Не читать:1kadfjkadjandkansfjkankjdanksfnasfasfjasfnasfjksaf)