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

Question

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

Answer 1

Var
  a,b : integer;
  c: real;

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