program EXERCICIO;
var
A: real;
begin
writeln('Digite um número para A');
read(A);
X:=A+B;
writeln(X);
end.