АСОИ, Delphi, много вариантов 2 сем / 2стеки / !подозрительное / стек / 1

//Алгоритм нахождения НОД и НОК 2 чисел

program Project;

uses SysUtils;

var a,b,nok,nod:integer;

procedure noknod(a,b,nok,nod:integer);
begin
while a<>b do
if a>b then
a:=a-b
else
b:=b-a;
nod:=a;
nok:=round(a*b/nod);
end;

begin
read(a,b);
noknod(a,b,nok,nod);
writeln(nok);
writeln(nod);
readln;
end.