program EXERCICIO;
var
A,B,C,D,X,X1,X2,Y,Y1,Y2:real;
begin
writeln('Digite um número para A'); readln(A);
writeln('Digite um número para B'); readln(B);
writeln('Digite um número para C'); readln(C);
writeln('Digite um número para D'); readln(D);
X:=A+B;
X1:=A+C;
X2:=A+D;
Y:=A*B;
Y1:=A*C;
Y2:=C*D;
writeln('A soma de A+B é=   ',X);
writeln('A soma de A+C é=   ',X1);
writeln('A soma de A+D é=   ',X2);
writeln('A multiplicação de A e B é=   ',Y);
writeln('A multiplicação de A e C é=   ',Y1);
writeln('A multiplicação de A e D é=   ',Y2);
writeln('Fim');
end.