С помощью постусловием ДО нужно ввести 9 цифр и посчитать их сумму, то есть не количество цифр! А именно их сумму! И тоже самое с другими видами цикла! ПОЖАЛУЙСТА!

1) с for:Program n1;var a,sum: real;i: integer;beginsum:=0;for i:=1 to 9 dobeginreadln(a);sum:=sum+a;end;writeln(sum); end.2) с while:Program n1;var a,sum: real;i: integer;beginsum:=0;i:=0;while i<9 dobeginreadln(a);sum:=sum+a;i:=i+1; end;writeln(sum); end.3) с repeat:Program n1;var a,sum: real;i: integer;beginsum:=0;i:=0;repeatreadln(a);sum:=sum+a;i:=i+1; until (i=9);writeln(sum); end.