Ответ:

7.

var c:real;

   i:integer;

begin

write('Введите цену конфет c=');

readln(c);

for i:=1 to 10 do

writeln(i:2,' кг=',i*c:0:2);

end.

8.  

  x, n, summ = 1, -1, -1

  while x != 0:

  summ += x

  n += 1

  x = int(input())

  print(summ, n)

Объяснение: