Подсчитать сумму всех четных чисел от 300 до 400.(паскаль)

Вывести на экран все трехзначные числа,кратные 8
ПОМОГИТЕ ПРОШУ

Что всегда в Паскале раздражало, так это отсутствие в цикле for шага, отличающегося от 1 или -1

Это точно.

// Задание №1var  a,s: integer;begin  a:=300;  repeat    s:=s+a;    a:=a+2;    until a>400;  writeln('s = ', s)end.// Задание №2var  a: integer;begin  a:=100;  repeat    if a mod 8 = 0 then write(a:4);    a:=a+1;    until a>999;end.