Определите, что будет напечатано в результате выполнения следующего алгоритма? var x, p: integer; begin x := 0; p := 0; while p < 234 do begin p := p + 11; x := x + 2; end; WriteLn(x); end.

Определите, что будет напечатано в результате выполнения следующего алгоритма?

var x, p: integer;

begin

  x := 0;

  p := 0;

  while p < 234 do

  begin

    p := p + 11;

    x := x + 2;

  end;

  WriteLn(x);

end.