uses crt;
var a:array[1..10]of real;
i:integer;
t:real;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to 10 do
if a[i]<5 then t:=t+a[i];
writeln('Tong cac phan tu duoi 5 la: ',t);
writeln('4 phan tu cuoi la: ');
for i:=7 to 10 do
write(a[i]:4:2,' ');
readln;
end.