Question

Срочно помогите пожалуйста❤❤❤❤❤

Answer 1

Ответ: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]<20) ) then

Writeln('Yes')

else Writeln('No');

readln;

end.

Объяснение:Надеюсь так