Написать программку в паскале.

Var
   A,B,d:longint;
   K:real;
Begin
WriteLn('Введите границы спектра: ');ReadLn(A,B);
For B:= A to B do
    if (Bgt;1) then
       if (B=2)or(B=3) then Write(B,' ')
       else if (B mod 2lt;gt;0) then
            Begin
            d:=3;
            K:=Sqrt(B);
            While (dlt;=K)and(B mod dlt;gt;0) do
               d:=d+2;
            if B mod dlt;gt;0 then Write(B,' ')
            End;
End.