Program fdf; const n=6; var a:array[1..n] of integer; m,c,i:integer; Begin for i:=1 to n do begin write('vedite a [',i,']'); readln(a[i]) end; For i:=1 to n Do Begin Read(A[i]); A[i]:=A[i]+25; writeln(a[i]); End; End.