Написать программу Turpo pascal помогите пожалуйста что сможете!

1. Вывести на экран 6 раз свое имяprogram imya; const n=6; var i: integer; beginfor i: =1 to n dowriteln ('ваше имя'); end. Пояснения: делала с помощью цикла (можно было написать и шесть раз writeln, но так удобнее). Переменную n ввела для быстрого изменения значений (если нужно будет написать имя не 6, а, к примеру, 8 раз, нужно было заменить только вначале). Еще хочу отметить, что имя вводится по-английски и нельзя терять апострофы (').2. program sum; var sum: integer; m: array[1… 4] of integer; i: integer; beginm[1]: =6for i: =2 to 4 do beginm[i]: =m[i-1]+1; end; sum: =m[1]; for i: =2 to 4 do beginsum: =sum+m[i]; end; writeln (sum); end. Пояснения: можно было делать и по-другому, но так тоже верно. Тут использовалось два цикла и массив. А блок-схему сами сделайте) 3. program n!; var n: real; c: integer; m: array[1… n] of integer; beginreadln (n) m[1]: =1; for i: =2 to n do beginm[i]: =m[i-1]+1; end; c: =m[1]for i: =1 to n do beginc: =c*m[i]; end; writeln ('n! ',c); end. Если что не понятно, пишите, объясню