Ввести два числа и вывести их сумму на экран

Var a,b,x:real; 
begin 
writeln('Введите зачения чисел a и b'); 
read(a,b); 
x:=a+b; 
writeln('Сумма чисел a+b=',x); 
end.