помогите, пожалуйста, исправить программу в паскале

program q183694146;
var
i, n, r: Integer;
begin
Write('N = ');
ReadLn(n);
r := Integer(n >= 10);
i := 200;
repeat
if (n >= 10) then
r := r * i
else
r := r + i;
Dec(i, 2);
until i < 2;
if (n >= 10) then
WriteLn('Произведение = ', r)
else
WriteLn('Сумма = ', r);
ReadLn;
end.

а семиколон Пушкин ставить будет?
И что это за оператор S:=N mod 2=0?

Переменная типа Integer принимает максимальное число 2 с лишним миллиарда. При вычислении произведения число будет намного больше и будет выдано число 0. Альтернатива – тип comp, но ничего про него не могу сказать, т. к. делал на WDE и там, видимо, тип comp не встроен, а скачивать паскаль ради одной задачи мне тупо вломы. Попробуй так:
var n:integer; r:comp; x:byte;
begin
write('N: ');
readln(n);
if (n<10) then begin
r:=0;
writeln('N<10, вычисляем сумму первых 100 чётных чисел, начиная с 2');
write('Сумма равна: ');
for x:=1 to 100 do r:=r+x*2;
end else begin
r:=1;
writeln('N<10, вычисляем произведение первых 100 чётных чисел, начиная с 2');
write('Произведение равно: ');
for x:=1 to 100 do r:=r*(x*2);
end;
writeln(r);
end.

ну если исправить, а не переписать, я бы сделал так:
program s7;
var k,k2,k3,N,S:integer;
var R:real;
begin
S:=0;
R:=1;
writeln('ВВедите N');
readln(N);
if (N<10) then
begin
for k:=2 to 200 do begin
if (k mod 2)=0 then S:=S+k
end;
writeln('S=',S);
end
else
begin
for k:=2 to 200 do begin
if (k mod 2)=0 then R:=R*k;
end;
writeln('R=',R);
end
end.