Найти сумму, произведение и частное чисел:
var
a,b, s,d,p: real;
begin
    writeln('Введите 2 числа:');
    read(a,b);
      s:=a+b;
      a:=s-b;
      b:=s-a;
    writeln('Сумма=',s,' a=',a,' b=',b);
    //*****
      d:=a/b;
    if b=0 then
      write('На 0 делить нельзя')
    else
      begin
        a:=d*b;
        b:=a/d;
        writeln('Частное=',d,' a=',a,' b=',b);
      end;
    //*****
      p:=a*b;
      a:=p/b;
      b:=p/a;
    writeln('Произведение=',p,' a=',a,' b=',b);
end.