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

var a,b,c: integer;beginwrite('Введите a:');readln(a);write('Введите b:');readln(b);write('Введите c:');readln(c);for var i:= 2 to min(min(a,b),c) dobeginif (a mod i = 0) and (b mod i = 0) and (c mod i = 0) thenbeginwriteln('НОК для ',a,' ',b,' ',c,' равен : ',i);break;endelsebeginwriteln('для ',a,' ',b,' ',c,' не существует НОК');break;endendend.