помогите с практикой!пожалуйста!

[Кипятилка]

всю практику пролежала в травме с сотрясением,а препод просто зверь, помогите с чем - нибудь, 1 июля сдавать надо!!!!!: 1.Дана действительная квадратная матрица порядка n. Преобразовать матрицу по следующему правилу: строку с номером n сделать столбцом с номером n, а столбец с номером n строкой с номером n.
2. Дана строка текстов. Найти слова, состоящие только из согласных букв и вывести их на экран.
3. Вычислить сумму 1! + 2! + 3! + … + … n! Вычисление числа k! организовать в виде подпрограммы.
4. a, b, c – числа Пифагора, если выполняется условие a^2+b^2=c^2 .Напечатать все числа Пифагора, меньше N.
5. Создать приложение, обеспечивающее ввод двух целых чисел и выполнение над ними арифметических операций сложения, вычитания, умножения и деления. Для выбора операции использовать компонент Radio Group, вывод сообщения об ошибке при вводе делителя, равного нулю, выполнить в отдельном окне сообщения.

Первые 4 задачи в паскале, пятая в делфи

[ОДИНОЧЕСТВО В СЕТИ]

3

function Fac(k: Word): Longint; 

var 

f: LongInt; 

i: Integer; 

begin 

f := 1; 

for i := 2 to n do f := f * i; 

fac:= f; 

end; 
.......
s:=0;
for i:=1 to n do 
s:=s+fac(i);
writeln(s);

4

Readln(n);
       for i := 1 to n do
         for j := 1 to n do
           for k := 1 to n  do
             if Sqr(k)+sqr(j)=Sqr(i) then writeln(k,'  ',j,'  ',i,' ');
            Readln;

1

procedure swap(var mas:array[1..10,1..10] of integer;k:integer);
var j,tmp:integer;
for j:=1 to 10 do begin
   tmp = mas[k,j];
   mas[k,j] = mas[j,k];
   mas[j,k] = tmp;end;
end;