Даны два ненулевых числа. Найти их сумму, разность, произведение и частное. 

program xxx;

  var a, b, s : real;

        r, p, d : real;

begin

   write ('введите певрое число- ');

   readln (a);

   write ('введите второе число- ');

   readln (b);

   s:= a+ b;

   r := a - b;

   p := a* b;

   d := a/b;

   writeln ('сумма =', s);

   writeln ('разность =', r);

   writeln ('произведение =', p);

   writeln ('частное = ', d);

   readln

end.