Переведите программу в Free Pascal
var
A: Array [1..100] of integer;
size: integer;
Even: integer;
notEven: integer;

begin
Write(‘Set size A :’);
Read(size);

for i:integer := 1 to size do begin
Write(‘Set A[‘, i, ‘]: ‘);
Read(A[i]);
end;

for i:integer := 1 to size do begin
if (A[i] mod 2 <> 0) then begin
notEven += A[i];
end
else begin
Even += A[i];
end;
end;

Write(‘Sum even numbers = ‘, Even);
Writeln;
Write(‘Sum notEven numbers = ‘, notEven);
end.

Ответ учителя по предмету Информатика

var

A: Array [1..100] of integer;

size: integer;

Even: integer;

notEven: integer;

i:integer;

begin

Write(‘Set size A :’);

Read(size);

for i:= 1 to size do begin

Write(‘Set A[‘, i, ‘]: ‘);

Read(A[i]);

end;

for i:= 1 to size do begin

if (A[i] mod 2 <> 0) then begin

notEven += A[i];

end

else begin

Even += A[i];

end;

end;

Write(‘Sum even numbers = ‘, Even);

Writeln;

Write(‘Sum notEven numbers = ‘, notEven);

end.