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

Program pascal; 
var x, y:real; 
begin 
readln(x); 
readln(y); 
writeln(x+y); 
writeln(x*y); 
end.