Помогите с задачей

[Серафимий Долговяз]

С экрана вводятся 3 числа. Написать функцию логического типа которой присваевается true если хотя бы один делитель среднего являлся бы делителем двух других

[Sazary]

Как я понимаю, нужно проверять все делители, кроме 1? (иначе будет всегда true)

uses crt;
var
a,b,c : integer;

function fn(a,b,c : integer) : boolean;
 var i : integer;
 begin
 for i:=2 to b do
   begin
   if b mod i = 0 then
     begin
     if (a mod i = 0) and (c mod i = 0) then
       begin
       fn := true;
       exit;
       end;
     end
   end;
 fn := false;
 end;

begin
clrscr;
write('a= '); readln(a);
write('b= '); readln(b);
write('c= '); readln(c);
if fn(a,b,c) then writeln('YES')
else writeln('NO');

readln;
end.