Question

ОЧЕНЬ НАДО!!!ПОМОГИТЕ С ЗАДАЧЕЙ!!!

Answer 1

8-ой:
var N,a,y,z:real;
begin
Readln(a,y,z);
N:=(a+51-sqrt(y-49))/(5-z);
  If (y<49) or (z=5) then
  begin
    If y<49 then
    Writeln('Число y < 49  Число в корне не может быть меньше 0');
    If z=5 then
    Writeln('Число z=5 На 0 делить нельзя');
  end
  else
  Writeln(N);
end.