Вычислить сумму квадратов простых чисел (PascalABC)!

[Amid1990]

Помогите решить задачу через подпрограммы.

Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N)

[l1pton17]

1) делай функцию проверки числа на простоту
2) Заводишь переменную S
3) в цикле целых чисел от M до N, с шагом 1, проверяешь является ли число простым, если да - суммируем к S с квадратом того числа.

[Вадим Мошев]

Думаю, паскаль АБЦ похож на турбо паскаль. Мог сделать за 50 руцблей на сотовый телефон.

[goto ∞]

Держи..

var
    i : integer;
  m,n : integer;
  sum : integer;

function is_simple(n : integer) : boolean;
var i,sq : integer;
begin
  sq := n div 2;
  result := true;
  for i := 2 to sq do
    if n mod i = 0 then
                      begin
                        result := false;
                        exit;
                       end;

end;

begin
 readln(m);
 readln(n);
 sum := 0;
 for i := m to n do
    if is_simple(i) then
                        sum := sum + (i*i);
  writeln(sum);
  readln;
end.

[Amid1990]

Спасибо goto ∞ я уже вроде как сделал только вот не могу додуматься как исключить из числа простых чисел 1.
Есть какие ни будь идеи? Нужно как ни будь сделать без дополнительных условий.

Program max_4;
   uses crt;
   var a, b, c,i: integer;
   procedure prostoe(a:integer; var b:integer);
   begin
    if (a mod 2<>0) and (a mod 3<>0) and (a mod 5<>0) and (a mod 7<>0) or (a=2) or (a=3) or (a=5) or (a=7) then begin // нужно как то сделать 1 не простым
    b:=a;
    writeln('Простое',a) end
    else begin b:=0;
    writeln('не простое',a); end;
   end;
Begin
write ('Введите промежуток чисел через Enter');
readln(a,b);
   for i:=a to b do begin
   prostoe(a,b);
   a:=a+1;
   c:=c+b;
   end;
writeln('Сумма простых чисел данного промежутка  =',c);
End.

[goto ∞]

Ну как, без дополнительных условий тождественно выражению "Поменяйте колесо автомобиля без домкрата". Сложно но можно ..
То что выделено красным значить измененный

Program max_4;
   uses crt;
   var a, b, c,i: integer;

   procedure prostoe(a:integer; var b:integer);
   begin
   if (a <> 1)and(a mod 2<>0) and (a mod 3<>0) and (a mod 5<>0) and (a mod 7<>0) or (a=2) or (a=3) or (a=5) or (a=7) then begin 
   b:=a;
   writeln(a,'- простое') end
   else begin b:=0;
   writeln(a,'- не простое'); end;
   end;

begin
write ('Введите промежуток чисел через пробел);
c := 0;
readln(a,b);
   for i:=a to b do begin
   prostoe(i,b);
   c:=(c+(b*b));// Не просто сумма простых, а сумма квадратоов простых..
   end;
writeln('Сумма квадаратов простых чисел  =',c); //
readln;
End.