Переведите программу в 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.

Если Вы имели в виду "подогнать" под Free Pascal, то так:

varA: Array [1 ... 100] of integer; size, Even, notEven, i: integer;

beginWrite ('Set size A : '); Read (size);

for i : = 1 to size do beginWrite ('Set A[', i, ']: '); Read (A[i]); end;

for i : = 1 to size do beginif (A[i] mod 2 0) then beginnotEven + = A[i]; endelse beginEven + = A[i]; end; end;

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