из Qbasic в Pascal :(

[trollo_]

помогите перевести программы из QBasic'a в Pascal
просто поскаль я очень плохо знаю и хочется изучиать C++, а не сидеть на pascal'e

1) Вычислить функцию:

y = 1+ (i! / (2 - i^2)

CLS
L=1
FOR i=1 TO 9
L=L*i
Y=1+L/(2-i^2)
IF (2-i^2) <> 0 THEN PRINT “i=”; i,”Y= “;Y ELSE PRINT “Delenie na 0!”;
NEXT I
END

2) Транспонировать матрицу X(8,8). Обе матрицы распечатать
CLS
DIM A(8, 8)
PRINT “Matrix”;
RPINT
PRINT "-----------------------------------"
FOR i = 1 TO 8
FOR j = 1 TO 8
A(i, j) = INT(RND * 250)-60
PRINT USING “#####”; A(i, j);
NEXT j
PRINT
NEXT i
PRINT "-----------------------------------"
PRINT "Transponded matrix";
PRINT
PRINT “----------------------------------“
PRINT
FOR i = 1 TO 8
FOR j = 1 TO 8
PRINT USING “#####”; A(j,i);
NEXT j
PRINT
NEXT i
PRINT "-----------------------------------"

3) Найти минимальное значения элементов четвертой строки и максимальный элемент восьмого столбца матриц A(6,9), B(5,8) и C(8,10). Матрицы и найденные элементы распечатать.

DIM F(8, 10)
PRINT "Matrix A";
PRINT
N = 6
M = 9
GOSUB 10
PRINT "Matrix B";
PRINT
N = 5
M = 8
GOSUB 10
PRINT "Matrix C";
PRINT
N = 8
M = 10
GOSUB 10
END
10: FOR i = 1 TO N
FOR j = 1 TO M
A(i, j) = INT(RND * 300) - 40
PRINT USING "#####"; A(i, j);
NEXT j
PRINT
NEXT i
min_a = A(4, 1)
FOR i = 1 TO N
IF (min_a > A(4, i)) THEN min_a = A(4, i)
NEXT i
PRINT "Minimum (4,i) is: ";
PRINT min_a
max_a = A(1, 8)
FOR i = 1 TO M
IF (max_a < A(i, 8)) THEN max_a = A(i, 8)
NEXT i
PRINT "Maximum (i,8) is: ";
PRINT max_a
PRINT
RETURN

[*PB*]

А где логика?
Переведите из бейсика в паскаль потому что хочу выучить C++.

[VKorablev]

автор не хочет загружать мозг , изучая паскаль, хочет учить спп, дорогой автор, я вам могу посоветовать тока один выход, учите СРР, переводите прогу из базика в спп, а потом воспользуйтесь утилкой С2Рas для перевода из спп в паскаль