Где будет записано слово word после выполнения след. фрагмента программы: var t1, t2: textfile; s: string; const slovo='word'; begin assignfile(t1, 'unit1.pas'); assignfile(t2, 'unit2.pas'); reset(t2); rewrite(t1); writeln(t1, slovo); while not eof(t2) do begin readln(t2, s); writeln(t1, s); end; closefile(t1); closefile(t2); а) в первом рядке файлу unit1.pas б) в первом рядке файлу unit2.pas в) в последнем рядке файлу unit1.pas г) в последнем файлу unit2.pas объясние в кратце что да как, !

1) var s: string; i,k: integer; begin read(s); for i: =1 to length(s) do if s[i]='*' then k: =k+1; writeln(k); end. 2) var s: string; i: integer; begin read(s); for i: =1 to length(s) do if s[i]='*' then begin delete(s,i,1); insert('0',s,i); end; writeln(s); end. 3) var s,s1: string; i: integer; begin read(s); for i: =length(s) downto 1 do s1: =s1+s[i]; writeln(s1); end. 4) var s: string; i,p1,p2: integer; begin read(s); for i: =1 to length(s) do begin if s[i]='(' then p1: =i; if s[i]=')' then p2: =i-p1; end; delete(s,p1,p2); writeln(s); end.

1. var     n,i,m: integer;     x: real; begin write('число оценок: ');   readln(n); for i: =1 to n do   begin   writeln('введите оценку: ');   readln(m);   x: =x+m   end; x: =round(x/n); writeln('оценка за четверть ',x) end.2.var    n: integer;   a,b,c: real; beginwrite('число a: '); readln(a); if a> 0 then n: =1; write('число b: '); readln(b); if b> 0 then n: =n+1; write('число c: '); readln(c); if c> 0 then n: =n+1; writeln('число положительных ',n)end.3.var    n,i,s: integer;     a: array of integer; beginwrite('размер массива: '); readln(n); setlength(a, n); for i: =0 to n-1 do  begin  a[i]: =random(-3,3);   write(a[i]: 3);   if a[i]< > 0 then s: =s+1  end; writeln; write('ненулевых  элементов: ',s);   end.