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

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