Написать программу в паскале . программу вывода на экран всех чисел кратных 3 и 5 от 1 до 1000

#include < stdio.h> #include < cstdlib> #include < ctime> const unsigned int n = 5; const unsigned int m = 6; int main() {       srand(time(null));       int i, j;       int a[n][m];       printf("\nsource: \n");       for (i = 0; i < n; i++) {             for (j = 0; j < m; j++) {                   a[i][j] = rand() % 201 - 100;                   printf("%d\t", a[i][j]);             }             printf("\n");       }       printf("\nresult: \n");       for ( i = 0; i < n; i++) {             for (j = 0; j < m; j++) {                   if (a[i][j] < 0) a[i][j] = 0;                   printf("%d\t", a[i][j]);             }             printf("\n");       }       getchar(); }

Or - "или". если одно из условий верно, то и все выражение принимает истину [ 0 or 1 = 1 ; 1 or 0 = 1; 1 or 1 = 0, 0 or 0 = 0], где 1 - истина, а 0 - ложь у тебя условие  if(k> 9) or (k< 14) thenусловие k > 9 выполняется, а значит и все выражение вернонужно заменить "or" на "and" оператор "и".  [ 1 and 1 = 1 ] при всех остальных - ложьвот кодvark: integer; begin  readln(k);   if k > 17 then    writeln('ваша оценка 5. молодец! ');   if (k > 13) and (k < 18) then        writeln('ваша оценка 4.');   if(k > 9) and (k < 14) then        writeln('ваша оценка 3.');   if k < 10 then    writeln('ваша оценка 2.'); end.