Склавиатуры вводятся 2 числа. составить алгоритм и программу сравнения этих чисел.

Var i, p: integer; m: array [1..4] of integer; begin  writeln('введите 4 числа: ');   for i : = 1 to 4 do  readln (m[i]);   p : = 0;   writeln('четные числа кратные 3: ');   for i : = 1 to 4   do  if (m[i] mod 2 = 0) and (m[i] mod 3   = 0) then  begin    write (m[i], ' ');     inc(p);   end;   if p = 0 then write('таковых нет');   end.

9строка будет содержать 2^10 - 1 = 1023 символа, на 1023 месте бедет стоять 9, на 1022 месте будет стоять 8, а на 1021 месте будет стоять 7. ответ. 7.