===== PascalABC.NET =====
begin
var (n, m) := ReadInteger2('Введите n и m:');
var a := MatrRandom(n, m, -99, 99);
a.Println(6);
a.Transform(p -> p * p);
Writeln;
a.Println(6)
end.
Начало.
Оденься.
Если дома кто-нибудь остаётся,попрощайся.
То выйдя из квартиры.
Иначе ...?
Выйди из квартиры.
Закрой дверь.
Коней.
модель типо модели глобуса или модели (девушки)
double a = 76.f, b = 12.f, c = 96.f, d = 40.f;
double y = (c * d) - (c * b);
double x = y / (a - b);
cout << c - x << endl;
PASCAL
program aa;
var a : integer;
begin
writeln('Введите день недели');
Read(a);
If (a < 1) or (a>7) then writeln('Такого дня не существует');
If (a > 0) and (a<6) then writeln('Рабочий день');
If a=4 then writeln(четверг');
end