Контрольное задание №13-2 / 13-2 / zadanie_2

program Zadanie_2;
var
M,N,j,b,k:word;
a: array[2..1000] of boolean;
S:real;
begin
writeln ('‚ўҐ¤ЁвҐ ¤Ё Ї®§®­');
readln (M,N);a[1]:=false;
for j:=2 to N do
a[j]:=true;
b:=trunc(sqrt(N));
while k<=b do
begin
repeat
inc(k);
until a[k];
j:=2*k;
while j<=N do
begin
a[j]:=false;
j:=j+k;
end;
end;
for j:=M to N do
begin
if a[j] then
S:=sqr(j)+S;
end;
writeln ('‘㬬  Єў ¤а в®ў Їа®бвле зЁбҐ« ­  § ¤ ­­®¬ Ё­вҐаў «Ґ: ',S:10:0);
end.