Составите программу которая ввыводет с клавиатуры 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.