Номер 5 пожалуйста ,на Паскаль программу сделайте

пожалуй самая интересная программа которую я тут решал  - спасибо! :) Код: var i,x,y,ymax,xmax,max,:integer; begin writeln('введите числа'); write('x='); readln(x); write('y='); readln(y); for i:=1 to x do  begin  if (x mod i)=0 then xmax:=i;  if (y mod i)=0 then ymax:=i;  if xmax=ymax then max:=ymax; end; writeln('наибольший общий делитель =',max); end. Пример работы: введите числа x=99 y=33 наибольший общий делитель =33