Нужно написать алгоритм для нахождения нод двух чисел в паскале

1

2

3

4

5

6

7

8

9

10

11

12

var a, b, nod, k: integer;

begin

readln(a, b);

k : = 0;

while (a < > 0) and (b < > 0) do begin

if a > b then a : = a mod b

else b : = b mod a;

k : = k + 1;

end;

nod : = a + b;

1) var a: array [1..10] of integer;           i,sum: integer; begin   randomize;   sum: =0;   for i: =1 to 10 do       begin           a[i]: =random(100)-50;             write (a[i],' ');           if a[i] < 0 then sum: =sum+a[i];             end;   writeln;   writeln ('summa: ',sum);   readln; end. 2) var a: array [1..10] of integer;           i,max,index: integer; begin   for i: =1 to 10 do       begin             write ('a[',i,'] = ');               readln (a[i]);         end;   max: =a[1];   index: =1;   for i: =2 to 10 do       if a[i] > max then           begin               max: =a[i];               index: =i;             end;   writeln ('max: ',max,'.index: ',index);   readln; end. 3) var a: array [1..10] of integer;           max,min,i,temp: integer; begin   randomize;   for i: =1 to 10 do       begin             a[i]: =random(50);             write (a[i],' ');         end;   writeln;   max: =1;   min: =1;   for i: =2 to 10 do       if a[i] > a[max] then max: =i else           if a[i] < min then min: =i;   writeln ('max: ',a[max]);   writeln ('min: ',a[min]);   temp: =a[min];   a[min]: =a[max];   a[max]: =temp;   for i: =1 to 10 do write (a[i],' '); end.

А) “солнце есть спутник земли”; логическое высказывание т.к создаёт утверждение и его можно проверить его истинность, и она = ложьб) “2+34”не логическое высказывание, ничего не утверждаетв) “сегодня отличная погода”; логическое высказывание, можно проверить задав критерий понятия "отличная погода"г) “в романе л.н. толстого “война и мир” 3 432 536 слов”; логическое высказывание т.к создаёт утверждение и его можно проверить его истинность например для текста на языкед) “санкт-петербург расположен на неве”; логическое высказывание т.к создаёт утверждение и его можно проверить его истинностье) “музыка баха слишком сложна”; в принципе логическое высказывание, но сложно придумать пример как можно проверить его истинностьж) “первая космическая скорость равна 7.8 км/сек”; для каждой планеты своя космическая скорость, для земли будет истинна, для марса ложь - логическое высказываниез) “железо — металл”; констатация факта, не логическое утверждениеи) “если один угол в треугольнике прямой, то треугольник будет тупоугольным”; логическое утверждение, которое ложьк) “если сумма квадратов двух сторон треугольника равна квадрату третьей, то он прямоугольный”.логическое утверждение, его можно проверить.