Var a,i,k:integer;
begin
readln(a);
for i:=2 to a-1 do
if (a mod i)=0 then k:=k+1;
if k=0 then writeln('Простое')
else writeln('Сложное');
<span>end.</span>
const n=20;
var a:array [1..n] of integer;
i,s:integer;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(31)+20;
write(a[i]:3,' ');
if a[i] > 30 then s:=s+a[i]
end;
writeln;
write('Сумма чисел, больше 30: ',s)
end.