program
prosthesi_pinakon;
var
A,B,C,D:array[1..5] of integer;
i:integer;
begin
writeln('ΠΙΝΑΚΑΣ Α');
for i:=1 to 5 do
begin
writeln('Δώσε το ',i,'ο στοιχειο του πίνακα A');
readln(A[i]);
end
;
writeln('ΠΙΝΑΚΑΣ B');
for i:=1 to 5 do
begin
writeln('Δώσε το ',i,'ο στοιχειο του πίνακα B');
readln(B[i]);
end
;
writeln('ΠΙΝΑΚΑΣ C');
for i:=1 to 5 do
begin
C[i] := A[i] + B[i];
writeln('Το άθροισμα του ',A[i],' και του ', B[i],' είναι ',C[i]);
end
;
writeln('ΠΙΝΑΚΑΣ D');
for i:=1 to 5 do
begin
D[i] := A[i] + C[i];
writeln('Το άθροισμα του ',A[i],' και του ', C[i],' είναι ',D[i]);
end
;
end.