Ответ нужен сегодня. дана последовательность 5 9 13 17 составьте программу алгоритма для подсчета числа слагаемых, сумма которых равна 324.

Program ff; var summ, count_terms: integer; begin summ: =0; count_terms: =0; while summ< > 324 do begin   summ: =summ+4;   count_terms: =count_terms+1; end; writeln('кол-во слагаемых: ',count_terms); readln(); end.

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.