program testfpe; uses sysutils; var a,b,c : double; begin a := strtoint('1'); b := strtoint('0'); c := a/b; writeln(c); end.