Даны два числа a и b. вам нужно вычислить их сумму a b. в этой вам нужно читать из стандартного воода и выводить ответ в стандартный вывод

Var a,b,s:real;
begin
Write('A='); read(a);
Write('B='); read(b);
s:=a+b;
Writeln('Сумма данных чисел равна ',s);
end.