Question

Найдите ошибку program percentage; uses crt; var a,b,c,d: real; begin writeln(', вас программа для нахождения процентов в огэ.искомую переменную обозначтье (0).'); write('введите переменную a-'); read(a); write('введите переменную b-'); read(b); write('введите переменную c-'); read(c); write('введите переменную d-'); read(d); writeln; if a=0 then begin a: =c*b/d; writeln(' ответ: ',a); end; if b=0 then begin b: =a*d/c; writeln(' ответ: ',b); end; if c=0 then; begin c: =a*d/b; writeln(' ответ: ',c); end; if d=0 then begin d: =c*b/a; writeln(' ответ: ',d); end; writeln(' за использование ! '); end.

Answer 1

');
  ReadKey
end.

Программа будет выводить несколько значений, если задать при вводе несколько нулей. Если так не должно быть, уточните алгоритм.