DIVMOD PASCAL

var a, b, d, e:longint;
    c:real;
begin
    assign(input,'divmod.inp');reset(input);
    assign(output,'divmod.out');rewrite(output);
    readln(a, b);
    c:=a/b;
    d:=a div b;
    e:=a mod b;
    writeln('Ket qua chinh xac la: ',c:0:2);
    writeln('Thuong la: ',d);
    writeln('Du la: ',e);
end.