Напишите как сделать программу в Паскале. Все 2 задачи

1)

const n = 5;var  i, a, count: integer;begin  for i := 1 to n do begin    readln(a);    if(a mod 2 = 0) then inc(count);  end;  writeln('Кол-во четных чисел: ', count);end.

2)

var  i, n, count: integer;begin  readln(n);  for i := 1 to n do begin    write(exp(ln(2)*i), ' ');    if(exp(ln(2)*i) <= 200) then inc(count);  end;  writeln('Кол-во эл. не превышающих 200: ', count);end.