Var c : integer; k : char; begin c := 0; while not eoln do begin read (k); if k = ' ' then begin if c > 10 then begin write ('YES'); halt; end; c := 0; end else c := c + 1; end; if c > 10 then write ('YES') else write ('NO'); end. <span> </span>
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var n:=ReadlnInteger; var a0:=ReadlnInteger; var d:=ReadArrInteger(n-1); Print(a0); for var i:=0 to d.Length-1 do begin a0:=a0+d[i]; Print(a0) end; end.