Сформировать и вывести матрицу
 

С помощью функции sin сформировать и вывести матрицу 6x6 из вещественных положительных чисел в пределах от 0-15.Определить наибольший элемент её главной диагонали и его индексы.Сформировать и вывести матрицу все элементы которой равны соответствующим элементам исходной,деленным на наибольший элемент диагонали.

Это то есть как?

Кроме того, пока Вы свято храните и отказываетесь даже под угрозой пыток выдать величайшую из тайн - Тайну Языка Программирования, на котором должно быть выполнено задание, мы Вам помочь, увы, бессильны.
Впрочем, Ваша стойкость вызывает уважение.

вводятся произвольные числа.определить сколько будет введено таких чисел ,пока не будет введено чмсло 22?

Браво! Тайна Языка Программирования - по-прежнему за семью печатями. Так держать!

Осмелюсь предположить "С помощью функции sin" означает, что нужно организовать цикл от 0 до 15 с шагом 0,4 {(((0+15)/(∆x))+1=36, отсюда ∆x=0,4)}, а потом из полученных значений x, получить 36 значений - sin (x), и сформировать из них матрицу 6x6.
P. S. не серчайте на "каринку" у нас в универе так формулирует задание препод(

Program karina;
Uses
crt;
Label
lab1;
Var
n : integer;
x : real;
Begin
clrscr;
n:=0;
lab1: write ('Vvedy chislo ');
readln (x);
if x<>22 then
begin
n:=n+1;
goto lab1;
end
else
writeln ('N=', N:6);
Readln;
End.

Program karina;
Uses
crt;
Label
lab1;
Var
n : integer;
x : real;
Begin
clrscr;
n:=0;
lab1: write ('Vvedy chislo ');
readln (x);
if x<>22 then
begin
n:=n+1;
goto lab1;
end
else
writeln ('N=', N:6);
Readln;
End.

Да я что - не серчаю. А вот интересно, преподы не сообщали, что бывают разные языки программирования, а не только Паскаль? Видимо, нет, потому как добиться от "каринки" внятной информации по ЯП я так и не смог.
И еще реплика по программам. Если преподы вас учат пихать всюду где надо и не надо эти метки да GoTo, то таких преподов нужно гнать в три шеи. Поверьте, это не просто дурной стиль программирования, а ОЧЕНЬ дурной.
Вот так, например, выглядит грамотно написанная программа по второму заданию: