Составите программу которая ввыводет с клавиатуры 2 числа и ввыводит их суму и произведение

Program prog; uses crt; var a,b: real; begin clrscr; write('a = '); readln(a); write('b = '); readln(b); writeln; writeln(a, '+', b,'=',a+b); writeln(a, '*', b,'=',a*b); end.