Сформировать множество простых и множество составных чисел,входящих в диапазон 7..22. +2 задачи.

USES CRT;
var a:string;
i,n,s:intenger;
m:array [1..1000] of intenger;
begin
readln (a);
n:=1;S:=0;
For i:=1 To Lenght (a) DO
begin
IF a[i] <> '.' THEN
m[n]:=m[n]+1

function Simple(n: longint): boolean;
var
  i: longint;
begin
  for i := 2 to Round(Sqrt(n)) do
    if n mod i = 0 then
    begin
      Simple := false;
      exit
    end;
 Simple := true;
end;

for i := 7 to 22 do
  if Simple(i) then
    Include(mp, i)
  else
    Include(ms, i);

min := 1;
for i := 2 to N do
  if a[i] < a[min] then
    min := i;

Nmax := 0;
for i := min + 1 to N do
  if odd(i) then
  begin
    Inc(Nmax);
    b[Nmax] := a[i];
  end;

Uses crt;
Var
a:array [1..10] of intenger;
i,n,min:intenger;
Begin
clrscr;
write ('n=');
read (n);
For i:=1 to n do
begin 
write('a[',i,']=');
read (a[i]);
end;
writelen;
min:=a[1];
For i:=1 to n do
IF a [i]<min Then a[i]:=min

for i:= 7 to 22 do 
begin
fl:=0;
for j:=2 to i-1 do
if (i mod j=0) then fl:=1 ;
if fl=0 then prost:=prost+[i] 
else sostav:=sostav+[i];
end;

For i:=2 To Round (sqrt(n)) Do
IF n mod i = 0 THEN
Begin
simple := false;
exit
end;

for i := 7 to 22 do
  if i in mp then
    Write(i, ' ');