Ответ:

6.

https://ru-static.z-dn.net/files/dfd/393f2906d2348d1ade857c14cb63d306.pas

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)

Объяснение:

Вот)