mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-01 14:29:33 +01:00
18 lines
192 B
ObjectPascal
18 lines
192 B
ObjectPascal
uses
|
|
{$ifdef go32v2}
|
|
dpmiexcp,
|
|
{$endif}
|
|
sysutils;
|
|
var i,j,k:real;
|
|
begin
|
|
i:=100;
|
|
read(j);
|
|
try
|
|
k:=i/j;
|
|
writeln(k:5:3);
|
|
except
|
|
k:=0;
|
|
writeln('Illegal Input');
|
|
end;
|
|
end.
|