Question

Напишите программу срочно!!!!

Answer 1

program yrav;
var
a: integer;
y: real;
begin
  writeln('Введите a: ');
  readln(a);
 
  if a=0 then
    writeln('Знаменатиль не может быть равен 0')
  else
    begin
      y:=(5/(a*(a-9)));
      writeln('y=', y);
    end;
end.