fork download
  1. program EXERCICIO;
  2. var
  3. A,B,C,D,X,X1,X2,Y,Y1,Y2:real;
  4. begin
  5. writeln('Digite um número para A'); readln(A);
  6. writeln('Digite um número para B'); readln(B);
  7. writeln('Digite um número para C'); readln(C);
  8. writeln('Digite um número para D'); readln(D);
  9. X:=A+B;
  10. X1:=A+C;
  11. X2:=A+D;
  12. Y:=A*B;
  13. Y1:=A*C;
  14. Y2:=C*D;
  15. writeln('A soma de A+B é= ',X);
  16. writeln('A soma de A+C é= ',X1);
  17. writeln('A soma de A+D é= ',X2);
  18. writeln('A multiplicação de A e B é= ',Y);
  19. writeln('A multiplicação de A e C é= ',Y1);
  20. writeln('A multiplicação de A e D é= ',Y2);
  21. writeln('Fim');
  22. end.
Runtime error #stdin #stdout 0.02s 4112KB
stdin
Standard input is empty
stdout
Digite um número para A