var
a:array[1..10]of integer;
i,x,s:integer;
begin
read(x);
for i:=1 to 10 do
readln(a[i]);
if a[i] mod 2<>0 then a[i]:=a[i]*a[i];
if a[i]<x then s:=s+a[i];
end;
write(s);
end.
Объяснение:
