mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 14:27:59 +02:00
23 lines
310 B
ObjectPascal
23 lines
310 B
ObjectPascal
{$mode objfpc}
|
|
|
|
uses SysUtils;
|
|
|
|
var
|
|
x,y,z : real;
|
|
|
|
begin
|
|
x:=5.75;
|
|
y:=5.75;
|
|
z:=6;
|
|
try
|
|
z:=z/ln(x/y);
|
|
WriteLn('Error! No runtime error detected');
|
|
Writeln('z = ',z);
|
|
except
|
|
on e : exception do
|
|
begin
|
|
Writeln('Correct, found error: ',e.message);
|
|
end;
|
|
end;
|
|
end.
|