Написать программу на Pascal

Нужно написать программу на Turbo Pascal.

Тема: "Сингулярное разложение в задачах линейной алгебры".

Алгоритм работы программы:

1. Программа работает с матрицами размерностями 5*3 или 3*5

2. Работа программы состоит из двух этапов:

а) Приведение матрицы к двух диагональной форме, т.е. привидение матрицы к матрице, у которой не нулевыми могут быть только элементы диагонали и над диагональю (первый);

б) Итерационной процесс, в кротом над диагональные элементы уменьшаются до пренебрежимо малой величины, что дает желаемую диагональную форму (второй этап есть варинт: QR - алгоритма)

Есть пример реализации программы на языке FORTRAN.

Пишите сроки выполнения/стоимость в ЛС.