Пожалуйста ПОМОГИТЕ!
Составьте программу для решения задач:
1.Найдите произведение квадратных корней N первых натуральных чисел
2.Определить делится ли сумма цифр заданного натурального числа на 7 
3.Заменяет в записи натурального числа N цифру 8 на цифру 3

1.varn, i: integer;rez: real;beginrez:=1;readln(n);for i:=1 to n do rez:=rez*sqrt(i);write(rez);end.2.varn: string;i, summa: integer;beginreadln(n);for i:=1 to length(n) do summa:=summa+strtoint(n[i]);if (summa mod 7)=0 then write('Делится') else write('Не делится');end.3.varn: string;i, summa: integer;beginreadln(n);for i:=1 to length(n) do if n[i]='8' then n[i]:='3';write(n);end.Если возникли вопросы или ошибки в ходе работы программы, пиши в ЛС или комментарии.