blob: e7e8023111a29a19ca9c1366397d1701426b0b11 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{$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.
|
