Найти сумму четных натуральных чисел кратных 7 из промежутка[23; 49] !

Var
  i, sum: integer;

begin
  sum := 0;
  for i := 23 to 49 do if (i mod 7 = 0) and (i mod 2 = 0) then sum := sum + i;
  writeln(sum);
end.

Правила безопасного использования сети интернет вы  должны это знать: при регистрации на  сайтах, старайтесь не  указывать личную информацию, т.к. она может быть доступна незнакомым людям. так же, не  рекомендуется размещать свою фотографию, давая, тем самым, представление о  том, как вы  выглядите, посторонним людям. используйте веб-камеру только при общении с  друзьями. проследите, чтобы посторонние люди не  имели возможности видеть ваш разговор, т.к. он  может быть записан. нежелательные письма от  незнакомых людей называются «спам». если вы  получили такое письмо, не  отвечайте на  него. в  случае, если вы  ответите на  подобное письмо, отправитель будет знать, что вы  пользуетесь своим электронным почтовым ящиком и  будет продолжать посылась вам спам. если вам пришло сообщение с  незнакомого адреса, его лучше не  открывать. подобные письма могут содержать вирусы. если вам приходят письма с  неприятным и  оскорбляющим вас содержанием, если кто-то ведет себя в  вашем отношении неподобающим образом, сообщите об  этом. если вас кто-то расстроил или обидел, расскажите все взрослому.  

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var a: =matrrandom(2,4,-10,30);   a.println(4); writeln(4*a.colcount*'-');   writeln('п = ',a.elementsbyrow.where(t-> t.between(1,19))           .aggregate(1,(x,y)-> x*y)) end. пример *** исходный массив ***   24  16  22  12     2    5    1    8 п = 15360