Pascal Цикл с предусловием

[#Azamat]

В приведенной программе циклически будет вычисляться произведение двух введенных чисел. Для продолжения работы программы необходимо периодически на ее вопрос отвечать утвердительным символом Д или д. Паскаль выводит вещественные числа в так называемой экспоненцмальной форме. Для их обычного представления необходимо после выводимой переменной указать параметры вывода в виде двух чисел после двоеточий.

program cycle_while;
Var 
  x,y,sum:real; otv:char;
begin
  sum:=0;
  otv:='Д';
    while (otv='Д') or (otv='д') do
      begin
         write('Введите числа x,y > 0 ');
        readln(x,y);
        writeln('Их произведение = ',x*y:8:3);
       sum:=sum+x+y;

       write('Завершить программу (Д/Н)? ');
       readln(otv);
     end;
   writeln('Общая сумма = ',sum:8:3);
   readln
end.

Автор: Неизвестен