С решением! Написать программу, которая запрашивает число с клавиатуры и сообщает его квадрат, затем спрашивает пользователя «

Пожалуйста помогите с решением!!!!1.Написать программу, которая запрашивает число с клавиатуры и сообщает его квадрат, затем спрашивает пользователя «Нужно продолжить работу?», и пользователь отвечаетда/нет. Программа заканчивает свою работу, если пользователь напечатал слово «нет» на очередной вопрос программы, иначе считает и выдаёт ответ дальше. 2. Дан массив из 10-ти чётных натуральных чисел – от 2 до 20. А) Найдите сумму элементов массива.Б) Найдите минимальный элемент массива.
3. Дан массив из 15 подряд идущих натуральных чисел, начиная с 50.А) Найдите произведение элементов массива.Б) Найдите максимальный элемент массива.

  • второеvar A: array [1..10] of integer;I,S: integer;min:=a[1];beginfor I:=1 to 10 do begina[i]:=random(10);S:=S+A[I];write(a[i],’ ‘);end;for i:=2 to 10 do  begin     if min>a[i] then       min:=a[i];  end;writeln;writeln (‘сумма=’,S);writeln (‘минимальное=’,min);

    end.