8.txt

pl0

var a,b;
begin
   a:=1;
   b:=0;
   a:=a/b;
   write(a)
end.