Program …; ПОМОГИТЕ var x, y: …; begin y := 0; … while (y < 100) do y := y + x; … end.
Ответ:
Gzex&187/568*:1381@5865?6547¥¦§°<вроди так если нет прости</p>