Ответ:var
k,i,x,y,l:integer;
a:array[1..10] of integer;
s:string;
begin
readln(k);
str(k,s);
l:=0;
for i:=1 to length(s) do
begin
{ write(s[i]); }
inc(l);
val(s[i],a[i],y);
end;
writeln;
if ( (a[1]+a[2]+a[3]+a[4]>10) and (a[1]+a[2]+a[3]+a[4]
Writeln('Yes')
else Writeln('No');
readln;
end.
Объяснение:Надеюсь так