Написать программу которая подсчитывала бы сумму 2 чисел

Var
A,B:real;
Begin
WriteLn('Введите два числа');
ReadLn(A,B);
WriteLn('Сумма данных чисел равна: ',A+B)
End.

Пример:

Введите два числа
3.14159 2.71828
Сумма данных чисел равна: 5.85987