,информатика 9 кл, развернутый ответ,

CLS
RANDOMIZE TIMER
INPUT "n = ", n
DIM A(n, n)
PRINT "1 - BBECTI ELEMENTbI C KLABbI"
PRINT "2 - RANDOM"
INPUT BBOD
IF BBOD = 2 THEN
  FOR i = 1 TO n
      FOR j = 1 TO n
          A(i, j) = RND * 21 - 10
      NEXT j
  NEXT i
ELSE
  FOR i = 1 TO n
      FOR j = 1 TO n
          PRINT "A["; i; ","; j; "] = ";
          INPUT "", A(i, j)
      NEXT j
  NEXT i
END IF
CLS
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT USING "###.##"; A(i, j);
        PRINT " ";
    NEXT j
    PRINT
NEXT i
C = 1
FOR i = 1 TO n
    FOR j = 1 TO n
        IF A(i, j) <> A(j, i) THEN
          C = 0
        END IF
    NEXT j
NEXT i
IF C = 1 THEN
  PRINT "DA"
ELSE
  PRINT "NET"
END IF
END

Var
   N,K,S,M: integer;
begin
{1-я задача}
writeln("Введите натуральное число");
readln(N);
if N mod 10 = 8 then
  writeln("Число оканчивается на 8")
  else writeln("Число не оканчивается на 8");
{2-я задача}
writeln("Введите количество гостей пришедших к Пете");
readln(K);
if (25-K*2)>0 then writeln("Конфет хватит")
   else writeln("Конфет недостаточно");
{3-я задача}
writeln("Введите количество рублей у Пети, а затем цену одной тетради");
readln(S);
readln(M);
if (S-M*5)>=0 then writeln("Петя сможет купить пять тетрадей");
  else
 writeln("Пяти тетрадей не купить");
end.