Нужна flow форма, буду признателен
program pr;

label cyc;

const

sizex = 4;

sizey = 3;

var

matrix: array[1..sizey, 1..sizex] of integer;

i, k: integer;

begin

writeln('чтение элементов массива');

for i : = 1 to sizey do for k : = 1 to sizex do readln(matrix[i, k]);

writeln('исходный массив: ');

for i : = 1 to sizey do
begin

for k : = 1 to sizex do
begin

write(matrix[i, k]);

end;

writeln('');

end;

writeln('подходящие строки: ');

for i : = 1 to sizey do
begin

for k : = 2 to sizex do
begin

if matrix[i, k] > = matrix[i, k - 1] then goto cyc;

end;

writeln(i);

cyc:

continue;

end;

end.

//PascalABC.NET
//Постройте алгоритм и составьте программу, по которой будет реализован
//следующий вариант сценарий: компьютер запрашивает номер дня недели,
//после ввода компьютер сообщает название этого дня (типо если ввели
//1 это понедельник 3 - среда)

type Arr = array [0..6] of string;

begin
    var DN: Arr := ('Воскресенье', 'Понедельник', 'Вторник', 'Среда',
                'Четверг', 'Пятница', 'Суббота');
    write('Введите порядковый номер дня недели: ');
    var n := ReadlnInteger;
    write('Этот день называется ', DN[n mod 7])
end.

«Фотон» (другое название Foton) — текстовый редактор для ПК под управлением MS-DOS, созданный во ВНИИНС на основе MultiEdit.  О программе

Это функциональный текстовый редактор, полностью на русском языке, обладает большими возможностями для того времени:

   многооконный (до 100 окон), окна можно перемещать, изменять их размер;

   размер редактируемого файла до 32 мегабайт;

   возможность отмены любой из 100 последних операций;

   мощный макроязык, с которого можно даже изменять пользовательский интерфейс;

   демонстрационная программа, которую можно запустить перед началом работы;

   контекстно-зависимая

   поддержка компьютерной мыши;

   механизм поиска и замены с использованием логических операндов;

   есть имитатор ДОС (подобие оболочки, где можно копировать, перемещать, удалять, переименовывать, печатать файлы не выходя из редактора);

   автосохранение текста через определенное время;

   возможность рисования линий;

   встроенный калькулятор;

   настройка цветовой палитры;

Являлся удобным в работе в основном для программистов.

Сори если неправильно не бань:(

Объяснение: