Решить, на лабе ! определить делится ли на целое число х целое число у без остатка. если делится, то разделить х на у и вывести его. в турбо паскале програмку написать.

Program del;
var x, y: integer;
d: real;
begin
read(x); read(y);
if x mod y = 0 then d:= x/y;
write (d);
end.