Помогите пожалуйста, упражнение 2. Нужно только написать программу на языке Pascal

program raf105;

var x,y: integer;

begin

x:= 13;

y:= 2;

while y < 12 do

if y<=x

 then begin

   x:= x-3;

   y:= y*2;

 end

 else begin

   y:= y-3;

   x:= x*y;

 end;

writeln(x);

end.