Написать программу и составить блок-схему к следующим задачам:

1) Даны два неотрицательных числа. Найти их среднее геометрическое, результат вывести на экран.
(Необходимо найти в Интернете,что такое среднее геометрическое, вспомнить как записывается квадратный корень в программе)
2)Даны катеты прямоугольного треугольника. Найти его гипотенузу, периметр и площадь. Результат вывести на экран

// PascalABC.Net
procedure RectangleSquare;
var
  a,b:double;
begin
  Write('Введите через пробел длины сторон прямоугольника: '); Read(a,b);
  Writeln('Площадь прямоугоьника равна ',a*b)
end;

var
  i:byte;
begin
  for i:=1 to 3 do RectangleSquare
end.

Тестовое решение:
Введите через пробел длины сторон прямоугольника: 3 7
Площадь прямоугоьника равна 21
Введите через пробел длины сторон прямоугольника: 12.4 15.8
Площадь прямоугоьника равна 195.92
Введите через пробел длины сторон прямоугольника: 14 12.5
Площадь прямоугоьника равна 175

1)
c = int(input('Це число просте?: '))
i = 2
b = False
while i <c:
i+=1
if c%2==0:
b = True
if b==True:
print('Нет')
else:
print('Да')

2)
c = int(input('Ведите сумму номеров прочитанных страниц: '))
suma = 0
i = 0
while suma<c:
i+=1
suma += i
if suma == c:
print('Номер последней прочитанной страницы - ',i)
elif suma > c:
print('Сумма номеров прочитанных страниц не существует')

Пример:
Ведите сумму номеров прочитанных страниц: 10Номер последней прочитанной страницы -  4Пример_1:
Ведите сумму номеров прочитанных страниц: 512Сумма номеров прочитанных страниц не существует

3)
mas = []
while True:
a = float(input(' a = '))
if a == 0:
breakmas.append(a)
print(mas)
print("Було введено ",len(mas),'чисел')
print("Минимальне число: ",min(mas))