Працюємо самостійно яких значень буде надано змінним, імена яких трапляються вкомандах, у результаті виконання таких фрагментів програм(для різних значень вхідних даних);1) i:=1; x:=0);при 1) n=3; y='ТАКwhile (I<n) and (y='TAK');2) n=3; у "НЕМАЄ3) n=1; y='ТАКх: х 11;i:=i+14) n=1; у="НЕМАЄ5) n=5; y='ТАК?2) for i in range (1, 5) :for j in range (1, 5):х= i*jprint (i+ ", 1+j+дорівнює 1 +r) ;ЩОМНОЖИТЬСЯНаІ​

function summa(n:integer):integer;

var a,s:integer;

begin

a:=abs(n);

s:=0;

while a>0 do

begin

 s:=s+a mod 10;

 a:=a div 10;

end;

summa:=s

end;

const n=10;

var A:array [1..n] of integer;

   j,i,k:integer;

begin

writeln('Исходный массив: ');

for i:=1 to n do

begin

 A[i]:=random(15)+1;

 write(A[i]:4);

end;

for i:=1 to n-1 do

begin

 for j:=1 to n-1 do

 if summa(A[j])<summa(A[j+1]) then

  begin

   k:=A[j];

   A[j]:=A[j+1];

   A[j+1]:=k

  end;

end;

writeln;

writeln('Отсортированный массив: ');

for i:=1 to n do

write(A[i]:4);

readln

end.