написать программу нахождения частного двух действительных чисел

var   a,b : integer;  c: real;begin  if b<>0 then c:=a/b else writeln("На 0 делить нельзя!");end.