program SumOfTenNumbers;
var
i, num, sum: integer;
begin
sum := 0;
i := 1;
repeat
readln(num); { считываем число с клавиатуры }
sum := sum + num;
i := i + 1;
until i > 10; { повторяем, пока не введено 10 чисел }
writeln('Сумма введенных чисел = ', sum);
end.