Даны числа a и b .Найти попарную сумму ,попарную разность, попарное произведение и частное чисел.
Нужна программа в паскале,заранее спасибо

var  a,b:real;beginreadln(a,b);writeln(a,'+',b,'=',a+b);writeln(a,'-',b,'=',a-b);writeln(a,'*',b,'=',a*b);writeln(a,'/',b,'=',a/b);end.