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<br> begin
If y<49 then<br> Writeln('Число y < 49 Число в корне не может быть меньше 0');
If z=5 then
Writeln('Число z=5 На 0 делить нельзя');
end
else
Writeln(N);
end.