let
in
let
    var i := 0
    var j := 0
    var sump := 0
    var a := 0
    var p := 0
in
    for i:=2 to 1000 do
        (
         p := 0;
         for j:=1 to i-1 do
             (a := i/j;
              a := a*j;
              when a = i do
                  (p := 1;
                   break)
             );
         when p = 0 do
             sump := sump + i

        )
end
;
1
end