Найти наименьшее общее кратное трех натуральных чисел в Pascal

Var a, b, c: integer;

begin

write ('Введите a:') ;

readln (a) ;

write ('Введите b:') ;

readln (b) ;

write ('Введите c:') ;

readln (c) ;

for var i: = 2 to min (min (a, b), c) do

begin

if (a mod i = 0) and (b mod i = 0) and (c mod i = 0) then

begin

writeln ('НОК для ', a,' ', b,' ', c,' равен : ', i) ;

break;

end

else

begin

writeln ('для ', a,' ', b,' ', c,' не существует НОК') ;

break;

end

end

end.