program except4;
imports except from except;
var i:integer;
    str:string;
handler divzero;
begin
writeln('division by zero');
end;
handler all(es,er,pstart,pend:integer);
var i:integer;
begin
writeln('exception',er:4,' in ssn',es:6);
i:=pend-pstart;
writeln('no. of original params =',i:4);
if i<>0 then
  begin
  end;
end;
begin
writeln('hello');
i:=10 div 0;
writeln('bye');
str:='next line';
str[20]:='?';
writeln(str);
end.