uses crt;
var a,n,s:Longint;
b:boolean;
begin
clrscr;
write('a=');readln(a);
writeln('Простые делители:');
n:=2;s:=0;
while a>0 do
begin
b:=true;
while n <= round(sqrt(a)) do{пока делится на очередное число}
begin
if a mod n=0 then
begin
write(n,' ');
if n mod 10=3 then s:=s+n;
a:=a div n;
b:=false;
break;
end;
inc(n); {следующее}
end;
if b then
begin
write(a);{последнее}
if a mod 10=3 then s:=s+a;
break;
end;
end;
writeln;
writeln('Сумма делителей, оканчивающихся на 3=',s);
readln
end.