Пожалуйста посчитайте,пожалуйста, составить программу на языке Паскаль,Задание на фото.

var x, y, a, nod:integer;
 nok:real; 
begin 
readln(x,y);
 a:=x*y;
 repeat if x > y then x:=x mod y
else y:=y mod x 
until x*y=0; 
nod:=x+y; 
writeln(nod); 
nok:=a/nod; 
writeln(nok); 
end.