program EXERCICIO;
var
A, B, C, D, X, X1 ,X2 ,Y ,Y1, Y2 : real;
begin
writeln('Digite um número para A');
read(A);
X:=A+B;
writeln('A soma de A+B é=   ',X);
end.