НА ПАСКАЛЕ!!! 8 КЛАСС 1. Привести 2 дроби к общему знаменателю

В качестве малой критики. Не было смысла определять отдельно НОД, потому что к нему обращение только однократно из НОК. Прямо там и записать его.

Для обобщенности

Что-бы наглядно было видно что да как

// PascalABC.NET // Версия 3.3.5 сборка 1662 (29.04.2018)function NOD(x, y: integer): integer;begin  if x <> 0 then NOD := NOD(y mod x, x) else NOD := y;end;function NOK(x, y: integer): integer;begin  NOK := (x div NOD(x, y)) * y;end;begin  var (a, b) := ReadInteger2('1) Числитель и знаменатель->');  var (c, d) := ReadInteger2('2) Числитель и знаменатель->');  Println('Общий знаменатель:', NOK(b, d))end.