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

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