из паскаля в бейсик

[nastya91]

из паскаля в бейсик программку переделать помогите))
ПОМОГИТЕ ПЖЛ

• Var m: Set Of Byte;
• i,k,n: Integer;
• Begin
• Writeln (＇ введите размер промежутка (до 255) ＇);
• Readln(n) ;
• m:=[2..n]; {начальное значение}
• For k:=2 To n Div 2 Do {перебираем все делители }
• For i:=2 To n Do
• If (i Mod k=0) And (i<>k) Then m:=m-;
• {если число кратно делителю и отлично от него, то удаляем его}
• For i:=1 To n Do If i In m Then Write(i:3);
• (распечатаем оставшиеся элементы }
• Readln;
• End.

КТО РАЗБИРАЕТСЯ ПОМОГИТЕ ПЖЛ))
НАДО С ПАСКАЛЯ НА БЕЙСИК))