murkaa

можно так попробувать PROGRAM Simple_numbers; USES CRT; VAR a : array[1..20] of integer; n,i,j,k : integer; BEGIN ClrScr; n:=1; readln(a[n]); repeat n:=n+1; readln(a[n]); until ((a[n]>a[n-1])or(n=20)); for i:=1 to n-1 do begin k:=0; if a[i]>3 then for j:=2 to trunc(sqrt(a[i])) do if ((a[i] mod j)=0) then k:=k+1; if ((k<3)or(a[i]<4)) then write(a[i],' '); end; writeln; END.