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

Program prog;Uses crt;var a,b: real;beginclrscr;write('A = ');readln(a);write('B = ');readln(b);writeln;writeln(a, '+', b,'=',a+b);writeln(a, '*', b,'=',a*b);end.