Определи сумму значений целочисленных переменных х и y после выполнения фрагмента алгоритма:

Программа:
var x, y: integer;
begin
x := 13; y := 2;
while y < 12 do
begin
  if y <= x then
  begin
    x := x - 3;
    y := y * 2;
  end
  else
  begin
    y := y - 3;
    x := x * y;
  end;
end;
writeln(x,' ', y);
end.