fork download
  1. program EXERCICIO;
  2. var
  3. A,B,X: real;
  4. begin
  5. writeln('Digite um número para A');
  6. read(A);
  7. X:=A+B;
  8. writeln(X);
  9. end.
Runtime error #stdin #stdout 0.02s 4112KB
stdin
Standard input is empty
stdout
Digite um número para A