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

Большое спасибо :)

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