program bpsl;
uses crt;
var n,t,m:integer;
begin
clrscr;
write('Nhap so can tinh: '); readln(n);
t:=0;
m:=n;
while m>0 do
begin
if m mod 2=1 then t:=t+(m mod 10)*(m mod 10);
m:=m div 10;
end;
write('Tong binh phuong cac so le cua ',n,' la: 't);
readln
end.