Нужно решить с программирования языка паскаля найдите любое трёхзначное число, кратное заданному p и не равное ему.

Uses crt; var i,n,p: integer; begin read(p); i: =100; while i< =999 do begin if (i mod p=0) and (i< > p) then begin n: =i; break; end; inc(i); end; writeln(n); end.

Begin   var e: double;   var s1: double;   var s2: double;   var x: double;   var step: integer;     readln(x);     e : = 0.0001;   s1 : = 1;   step : = 3;     s2 : = (1 + x) / (1 - x) / (1 - x);     while abs(s1 - s2) > e do begin       s1 : = s1 + (1 + 2*step)/power(x, step);   end;     writeln(s1);   writeln(s2);   writeln(s1 - s2); end. расставь правильно скобки в условии, я исправлю решение.

Const n = 10; begin   var a: array[1..n] of real;   var i: integer;   var growing: boolean;     for i : = 1 to n do begin       readln(a[i]);   end;     growing : = true;     for i : = 2 to n do begin       if a[i] < = a[i - 1] then begin           growing : = false;           break;       end;   end;     writeln(growing); end. const m = 5; const n = 4; const limit = 100; begin   var matrix: array[1..m] of array[1..n] of real;   var matrixb: array[1..m - 1] of array[1..n - 1] of real;   var row, col, rb, cb, lowest_row, lowest_col: integer;   var lowest: real;   var p: boolean;     lowest : = limit;     for row : = 1 to m do begin       for col : = 1 to n do begin           matrix[row][col] : = random(limit - 1);           if matrix[row][col] < lowest then begin               lowest : = matrix[row][col];               lowest_col : = col;               lowest_row : = row;           end;           write(matrix[row][col], ' ');       end;       writeln('');   end;     writeln('');   writeln(lowest);   writeln('');     rb : = 1;     for row : = 1 to m do begin       p : = false;       cb : = 1;       for col : = 1 to n do begin           if (not (col = lowest_col)) and (not (row = lowest_row)) then begin               p : = true;               matrixb[rb][cb] : = matrix[row][col];               cb : = cb + 1;           end;       end;       if p then begin           rb : = rb + 1;       end;   end;     for rb : = 1 to m - 1 do begin       for cb : = 1 to n - 1 do begin           write(matrixb[rb][cb], ' ');       end;       writeln('');   end;   end.