Ввести с клавиатуры два натуральных числа и найти их НОД с модифицированного алгоритма Евклида. Заполните таблицу:

qbasic:

input "число а=", a 

x = a 

do

  x = x ^ 2 + 1

  n = n + 1

loop until x > = 1000000

print a, x, n

max(n) = 7, при a = 0

var a,b,c: integer;

begin

  read(a,b,c);

  if b=с then writeln(1);

  if a=с then writeln(2);

  if b=a then writeln(3);

end.

(я так понял масив(матрица) "состоящая из 5 строк и 10 столбцов заполненная случайными числами в диапазоне от 0 до 29" вводитса з клавиатуры) (я на паскале на ошибки не проверял)

program dl9_aridrettnir;

var a: array [1..10,1..5] of inteher;

sum: array [1..10] of integer;

i,q,j: integer;  

begin

writeln ('vvedit masiv ot 0 do 29');

for i: =1 to 10 do

begin

for q: =1 to 5 do begin

readln (a[i,q]);

end; end;

for i: =1 to 10 do

begin sum[i]: =0;

for q: =1 to 5 do begin

for j: =1 to 10 do begin 

sum[i]: =a[q,j]+sum[i];

end; end; end;

readln

end. 

      все просто

    +116=1110100;   -116=0001011