Даны числа 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.