A pascal programozási nyelvben ezt hogy lehet megcsinálni?

Ha jól értem a feladatot:

program prog;

uses crt;

var a,b,n,sum,num : integer;

koz : real;

begin

sum:=0;

num:=0;

writeln('Az intervallum minimumja? ');

readln(a);

writeln('Az intervallum maximumja? ');

readln(b);

writeln('Osztó? ');

readln(n);

while(a<b) do begin

while(((a mod n)=0) && (a<b)) do begin

sum:=sum+a;

num:=num+1;

a:=a+1;

end;

a:=a+1;

end;

koz:=sum/num;

writeln('Számtani közepe: ',koz);

repeat until keypressed;

end.

Határozottan nincs benne if, nem garantálhatom, hogy hibátlan, n=1-re és n=2-re működött.