Помоги плс срочно надо! (Pascal ABC) Найти среднеорифметическое всех простых чисел на отрезке от -А до В

uses crt;procedure Prost(a:longint;var f:boolean);var i:longint;beginif a=0)and(b>a);k:=0;for i:=a to b do begin  Prost(i,f);  if f then   begin    write(i, );    k:=1;   end; end;if k=0 then writeln(Простых чисел в интервале ,a, ,b, нет!);readlnend.