tw1917.pp 310 B

12345678910111213141516171819202122
  1. {$mode objfpc}
  2. uses SysUtils;
  3. var
  4. x,y,z : real;
  5. begin
  6. x:=5.75;
  7. y:=5.75;
  8. z:=6;
  9. try
  10. z:=z/ln(x/y);
  11. WriteLn('Error! No runtime error detected');
  12. Writeln('z = ',z);
  13. except
  14. on e : exception do
  15. begin
  16. Writeln('Correct, found error: ',e.message);
  17. end;
  18. end;
  19. end.