(информатика 8 класс практическая работа номер 8 ) найти в одной программе сумму и произведение двух чисел

var  a: array[1..1000] of integer;   n, i, j: integer;   flag: boolean; begin  a[1] : = 0;   write('n = '); readln(n);   for i : = 2 to trunc(sqrt(n)) do    if n mod i = 0 then    begin      a[1] : = i;       n : = n div i;       break;     end;   if a[1] = 0 then  begin    writeln(n);     exit;   end;   i : = 1;   while n < > 1 do  begin  flag : = false;     for j : = a[i] to trunc(sqrt(n)) do      if n mod j = 0 then      begin        a[i + 1] : = j;         inc(i);         n : = n div j;         flag : = true;         break;       end;     if (not flag) and (n < > 1) then    begin      a[i + 1] : = n;       inc(i);       break;     end;   end;

//вторая программа

const m = 4; n = 3; var a: array[1..m, 1..n] of integer; i, j, pr: integer; begin randomize; pr : = 1; writeln('исходный массив'); for i : = 1 to m do begin for j : = 1 to n do begin a[i, j] : = random(21) - 10; if a[i, j] > 0 then pr : = pr * a[i, j]; write(a[i, j]: 4, ' '); end; writeln; end; writeln; writeln('преобразованный массив'); for i : = 1 to m do begin for j : = 1 to n do if a[i, j] < 0 then write(pr: 8, ' ') else write(a[i, j]: 8, ' '); writeln; end; readln; end.

  for j : = 1 to i do    write(a[j], ' ');   readln; end.

var  s: string;   i: integer; begin  write('s = ');   readln(s);   for i : = 1 to length(s) do      if s[i] < > s[length(s) - i + 1] then      begin          writeln('no');           readln;           exit;       end;   writeln('yes');   readln; end.

//вторая программа

var  s: string;   i, counta, counte: integer; begin  counta : = 0;   counte : = 0;   write('s = ');   readln(s);   for i : = 1 to length(s) do      if s[i] = 'a' then          inc(counta)      else          if s[i] = 'e' then              inc(counte);   if counta > counte then      writeln('a > e')  else      if counta < counte then          writeln('a < e')      else          writeln('a = e');   readln; end.