Дан промежуток [0,48]. Вывести все числа из этого промежутка кратные 3. (Составьте блок-схему и разработайте код)

6) Если Андрей не живет в Витебске (по пункту 2), то Андрей не может быть химиком (по пункту 5)
7) Тот, кто в Минске - физик, т.к. он не может быть математиком (по пункту 3) и химиком (по пункту 5)
8) Следовательно, Иван - не физик (по пункту 1)
9) Т.к. и Андрей не физик (по пункту 4), то физик - Борис, и живет он в Минске (по нашему выводу из пункта 7)
10) Андрей живет в Харькове, т.к. Борис в Минске (по нашему пункту 9) и т.к. Андрей не может жить в Витебске (пункт 2)
11) Значит, Ивану остается только Витебск, следовательно он - химик (по пункту 5)
12) Андрею достается математика (исходя из всех умозаключений)

Итог:
Борис - физик - Минск
Андрей - математик - Харьков
Иван - химик - Витебск

var i,n,m,sum,pr,k,j:longint;

begin

 sum:=0; pr:=1;

 write('m: '); readln(m);

 write('n: '); readln(n);

 i:=2;

 repeat

   if m mod i = 0 then

     begin

       sum:=sum+i;

       m:=m div i;

       i:=2;

     end

       else inc(i);

 until m=1;

 writeln('Sum_M:', sum);

 for i:=2 to n div 2 do

   if n mod i = 0 then

     begin

       k:=2;

       for j:=2 to i div 2 do

         if i mod j = 0 then inc(k);

       if (k>2)and(i mod 3 = 0 ) then

         pr:=pr*i;

     end;  

 writeln('Proizv_N:', pr);

 if sum>pr then writeln('Da, sum prost del M > proizv sost del N')

   else

     writeln('Net, sum prost del M < proizv sost del N');

end.