Написать в программе паскаль: дано целое число. если оно положительное и трехзначное, найти сумму первой и третьей цифры этого числа, в противном случае сообщить, что число нам не подходит.

Program zadanie; var a,b,c: integer; begin  writeln('введите число');   readln(a);   if (a div 100> 0) or (a div 100< 0) and (a> 0) or (a=0) then  begin  b: =a div 100;   c: =(a mod 100) mod 10;   a: =b+c;   writeln('сумма=',a);   end  else writeln('число нам не подходит'); end. and-логическое "и" or-логическое "или"

Впаскале const       n = 3;       k = 3; var   i,j: integer;   a: array[1..n,1..k] of integer; begin       for i: =1 to n do       for j: =1 to k do     begin       writeln('введите a[',i,',',j,']: ');       readln(a[i,j]);     end;   writeln('исходный массив: ');   for i: =1 to n do     begin       for j: =1 to k do     write('a[': 4,i,',',j,']=',a[i,j]);     writeln;     end;   for i: =1 to n do     for j: =1 to k do     if i=j then a[i,j]: =0;   writeln('полученный массив: ');   for i: =1 to n do     begin      for j: =1 to k do     write('a[': 4,i,',',j,']=',a[i,j]);     writeln;     end; end.

Const   n = 10; var   a: array[1..n, 1..n] of integer;   i, j: integer; begin   randomize;   writeln('исходная матрица');   for i : = 1 to n do   begin       for j : = 1 to n do       begin           a[i, j] : = random(101) - 50;           write(a[i, j]: 4)       end;       writeln   end;   for i: =1 to n do a[i,i]: =0;   writeln('результирующая матрица');   for i : = 1 to n do   begin       for j : = 1 to n do write(a[i, j]: 4);       writeln   end end. тестовое решение: исходная матрица   -19  15  42  44  32  41 -11 -21  14 -29   33  -8 -21 -33 -38  28  21  43  39 -46   -1  33  13  23 -38  32 -25 -26  43  41     7    6  39  14  48  37  -3  -3  -2 -41   -26  40 -38 -24  16  43 -17    3    7    7   37  20  17  44  28  -2 -49 -32  32 -50   16 -35 -14  23  14 -23    3  15 -31 -24   -19 -26  -5  30  30    9  20 -13 -43 -30   -2  22  17 -15 -46  38  39  46  37  -1   36 -22  15  -2  -7 -41    3 -10  12 -12 результирующая матрица     0  15  42  44  32  41 -11 -21  14 -29   33    0 -21 -33 -38  28  21  43  39 -46   -1  33    0  23 -38  32 -25 -26  43  41     7    6  39    0  48  37  -3  -3  -2 -41   -26  40 -38 -24    0  43 -17    3    7    7   37  20  17  44  28    0 -49 -32  32 -50   16 -35 -14  23  14 -23    0  15 -31 -24   -19 -26  -5  30  30    9  20    0 -43 -30   -2  22  17 -15 -46  38  39  46    0  -1   36 -22  15  -2  -7 -41    3 -10  12    0