NuBKKs - Online Pascal Compiler & Debugging Tool

{
	Задача:
	- 343 из "Сборника задач по программированию"
	- авторы сборника Д.Гуденко, Д.Петроченко
	Решение:
	- автор Дмитрий Кузнецов
	- цена $112.11
}
program SumLineChars;
const
	max = 8;
var
	ch			:char;
	i, c, sum	:integer;

begin

i := 0;
sum := 0;

writeln('Подсчитать сумму кодов вводимых символов.');
repeat

  writeln(' -> ');
  readln(ch);
  c := ord(ch);
  sum := sum + c;
  inc(i);

until (c = ord('\')) or (i > max);

writeln('Сумма равна : ', sum);

end.