Найти наименьшее общее кратное трех натуральных чисел в 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.