Паскаль !!!вычислите сумму чётных чисел от 1 до m*n , где число m задается с клавиатуры ,n=5

Program m1;
const n=5;
var sum,m,i: longint;
begin
write('введите m: ');
readln(m);
sum:=0;
for i:=1 to m*n do if i mod 2=0 then sum:=sum+i;
writeln('сумма четных: ',sum);
end.