Переведите в паскаль, пожалуйста, очень срочно

program sp; var   n, x: integer;   1: label; begin   n:= 13;   label main;   writeln(n);   writeln('Можно взять 1, 2 или 3 спички. Ваш ход');   readln(x);   n := n - x;   if n > 0 then     begin       writeln('Мой ход. Я возьму', 4 - x);       n := n - (4 - x);     end   end     if n <= 0 then       writeln('Вы проиграли!')     else       goto 1;     end   end.