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

Var
  a,b : integer;
  c: real;

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