Program summa; var
a: array[1..40] of integer;
i, suma: integer;

begin
for i:= 1 to 40 do ;
for i:=1 to 40 do;
begin
if 'a'[i] mod 5 = 0 then "[" a:=i;
writeln ('s', s);
end.
ПИШЕТ ЧТО В 10 СТРОКЕ ОШИБКАИСПРАВЬТЕ

program dlksjijh;

var

 A: array[1..40] of integer;

 i: integer;

begin

 randomize;

 writeln('исходные данные:');

 for i := 1 to 40 do

 begin

   A[i] := Random(21);

   write(A[i], ' ');

 end;

 writeln;

 writeln('преобрезованный массив:');

 for i := 1 to 40 do

 begin

   if A[i] mod 2 = 0 then

     A[i] := Round(A[i]/2)

   else

     A[i] := A[i] * 3;

   write(A[i], ' ');

 end;

end.

Фуф, вроде так))