1) напишите программу, которая организует массив из 10 целых чисел по случайному закону в интервале от 0 до 200. и определяет сумму элементов массива кратных 5. на экран выводятся элементы созданного массива в строку с форматом 4, элементы , значение которых кратно 5 и сумма. используйте 2 цикла.

var

 a: array [1..10] of Integer;

 i, s: Integer;

begin

 Randomize;

 s := 0;

 for i := Low (a) to High (a) do begin

   a [i] := Random (201);

   Write (a [i] :4);

 end;

 WriteLn;

 for i := Low (a) to High (a) do begin

   if a [i] mod 5 = 0 then begin

     s := s + a [i];

     Write (a [i] :4);

   end;

 end;

 WriteLn;

 WriteLn ('Сумма = ', s);

 ReadLn;

end.