Ответ:

program HelloWorld;

var x,y : integer;

begin

   x:=15;

   y:=12;

   while (x<>y) do

   begin

       if x > y then x:=x-y

       else y:=y-x;

   end;

   if(x=y)then writeln(x);  

end.

я не понял откуда появилась переменная V , так что счел это за опечатку.

Объяснение: