Нужна с решением данной работы. вариант 2.

2.поиск текста на странице

4.изменение кодировки текста на странице

8.изменение размера шрифта для текста страницы

такая

естественная

красота

самая

теплая

: dd что есть, то есть

var a: array[1..100] of integer;

i,ms,ps: integer;

begin

  {vvod massiva a}

  for i: = 1 to 100 do

    if a[i] > 0 then ps: =ps+a[i]

    else ms: =ms+a[i];

  writeln(ps,ms);

end.

350*2=700

700-500=200