нахождение НОД и НОК

[Spanchik]

составить программу для нахождения наибольшего общего делителя и наименьшего общего кратного двух натуральных чисел

[Человек_Борща]

Зачем вообще в универ пошел?

[WinCoder]

Человек_Борща Всегда есть батан, которого можно нагнуть. ТС считает, что тут такие батаны есть. Всё логично.

[Arigato]

Алгоритм Евклида решает половину ваших проблем.

[Serge_Bliznykov]

Алгоритм Евклида решает половину ваших проблем

Это слишком сложно для TC.
банальный поиск по форуму решает проблему.
я уже не говорю про ссылки внизу ( "Похожие темы").

[Алексей_2012]

Гугл в помощь)

function TForm1.NOD(a, b: integer): integer;
begin
if a = 0 then NOD := b
  else NOD := NOD(b mod a, a)
end;

function TForm1.NOK(a, b: integer): integer;
begin
    NOK := (a div NOD(a, b)) * b;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
v,s,d,t,k:integer;
begin
v:=strtoint(Edit1.Text);
s:=strtoint(Edit2.Text);
Label1.Caption:= 'НОД: '+ inttostr(NOD(v,s));
Label2.Caption:= 'НОК: '+ inttostr(NOK(v,s));
if Edit3.Text<>'' then
 begin
  d:=strtoint(Edit3.Text);
  t:=(NOD(v,s));
  Label3.Caption:= 'НОД трёх : '+ inttostr(NOD(t,d));
  k:=(NOK(v,s));
  Label4.Caption:= 'НОК трёх : '+ inttostr(NOK(k,d));
 end;
end;