Составить программу в mathcad формирующую матрицу строку из N элементов, начальным значением M0, каждый следующий член которой равен квадрату предыдущего

Если сигнал передается транспортным путе около 90 ч
Если с помощью СМИ где-то за 1 час

A B C ¬A ¬B ¬A∨¬B ¬A∨¬BvC
0 0 0 1. 1. 1. 1
0. 1. 1 1 0. 1. 1
1. 0. 0. 0. 1. 1. 1
1. 1. 1. 0. 0. 0. 1
0. 0. 1. 1. 1. 1. 1
1. 0. 1. 0. 1. 1. 1
1. 1. 0. 0. 0. 0. 0
0. 1. 0 1. 0. 1. 1

1111111101 = 1*2^9+1*2^8+1*2^7+1*2^6+1*2^5+1*2^4+1*2^3+1*2^2+1*2^0=
=1021

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Приём ИЗ "...ОтделыОбмен";

ПЕР
  число, чётных, сумцифр, цифра: ЦЕЛ;

УКАЗ
  число := Приём.Число();
  чётных := 0; сумцифр := 0;
  ПОКА число > 0 ВЫП
    цифра := число ОСТАТОК 10;
    ЕСЛИ ЧЕТ(цифра) ТО УВЕЛИЧИТЬ(чётных) КОН;
    УВЕЛИЧИТЬ(сумцифр, цифра) КОН;
    число := ЧИСЛО ДЕЛИТЬ 10
  КОН;
  Вывод.ЧЦел("^%d %d", чётных, сумцифр, 0, 0)

КОН Задание.