Есть программа для нахождения НОД, нужно в нее добавить нахождение НОК

Marina в категроии Информатика, вопрос открыт 08.03.2017 в 19:06

uses crt;
function Nod(a,b:integer):integer;
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
Nod:=a;
end;


var a:array[1..100] of integer;
n,i:byte;
k:integer;
begin
clrscr;
write('Введите кол-во элементов n=');
readln(n);
writeln('Введите элементы массива: ');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
k:=Nod(a[1],a[2]);
for i:=3 to n do k:=nod(k,a[i]);
writeln('Общий НОД всех элементов=', k);
readln
end.