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

Program percentage;
uses Crt;
var
  a,b,c,d:real;
begin
  ClrScr;
  Writeln('Здравствуйте!');
  Writeln('Вас приветствует программа для нахождения процентов в заданиях ОГЭ');
  Writeln('Искомую переменную обозначьте нулем');
  Write('Введите через пробел значения a,b,c,d: ');
  Read(a,b,c,d);
  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('Спасибо за использование программы!!!');
  ReadKey
end.

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