Курсовая работа: Техническое задание на создание автоматизированных систем

writeln;

writeln('"1" - Простейшая обработка массива');

writeln('"2" - Операции над матрицами');

writeln('"3" - Транспонирование матриц');

writeln('"4" - Обработка файлов данных');

writeln('"0" - Выход из программы');

writeln;

read(w);

case w of

1: rezh1;

2: rezh2;

3: rezh3;

4: rezh4;

end;

until w=0;

end.