Определить сумму всех чисел кратных 3 из промежутка от 100 до 1000

Var sum,i: integer; begin sum: =0; for i: =100 to 999 do if (i mod 3=0) then sum: =sum+i; writeln('сумма трехзначных чисел кратных трем равна ',sum); end.

Программа рабочая, скорее всего ты просто вводил элементы в строчку, а у тебя стоит в чтении переход на новую строку(окончание ln), и паскаль просто не видел никакие числа, кроме первого. и муторный и непонятный код, я переписал немножко: var   col, a: integer; begin   col : = 0; read(a);   while a < > 0 do   begin       read(a);       if (a mod 3 = 0) and (a mod 2 = 0) then           col : = col + 1;   end;   writeln('количество ', col); end. пример: 6 12 9 36 0 количество 3

//максимально прямой(в значении тупой) код var a,b,c, max, min: real; begin readln(a,b,c); if (a > b) and (a > c) then max: = a; if (c > b) and (c > a) then max: = c; if (b > a) and (b > c) then max: = b; if (a < b) and (a < c) then min: = a; if (c < b) and (c < a) then min: = c; if (b < a) and (b < c) then min: = b; if (a < > min) and (a < > max) then writeln(a); if (b < > min) and (b < > max) then writeln(b); if (c < > min) and (c < > max) then writeln(c); end. пример: -9 3 6 3