blob: 86ba125acb122f3bc37d799b1f41208ca7e08fd1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
{ Old file: tbs0305.pp }
{ Finally is not handled correctly after inputting 0 }
{$mode objfpc}
uses
sysutils;
var i,j,k:real;
const except_called : boolean = false;
begin
i:=100;
j:=0;
try
k:=i/j;
writeln(k:5:3);
except
k:=0;
writeln('Illegal Input');
except_called:=true;
end;
if not except_called then
begin
Writeln('Error in except handling');
Halt(1);
end;
end.
|
