Написать программу поиска минимального значения в массиве, вывести на экран минимальное значение и номер (индекс) этого значения.

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  var i:=a.IndexMin;
  Writeln('Минимальный элемент ',a[i],' имеет индекс ',i+1)
end.

Пример
n= 15
66 -91 75 27 7 -95 96 48 -35 77 49 71 -13 25 -8
Минимальный элемент -95 имеет индекс 6

1) Если имя переменной в себе содержит больше одного слова, то оно всё равно целиком должно быть написано слитно, иначе SyntaxError

birth day -> BirthDay или birthDay или birth_day

2) # Step 3: if * > **: age = year - birth_year then:

    - Переменная birth_year ранее не объявлена

    - как интерпретатор должен осознать значение выражения " if * > ** " ?

    - Откуда там взялся then: ?

3) print("Your age: {a} years, {b} months, {c} days"):

    - Перед форматированной строкой должен стоять флаг f:

      print(f' value: {value}')

Вывод: Изучите основы синтаксиса Python

1. Ну я не знаю какая часть фигуры закрашена. Будем считать что прямоугольник находиться в окружности и необходимо из площади курга вычесть площадь прямоугольника.
const
p =3.14;
var
a,b,r,s1,s2:real;
begin
Writeln('Введите длины сторон прямоугольника');
readln(a,b);
Writeln('Введите радиус окуржности');
Readln(r);
s1:=a*b;
s2:=p*sqr(r);
Writeln('Площадь закрашеной окружности = ', s2-s1);
end.

Если закрашена какая-то другая область то можете просто изменить действие с площадями в предпоследней строчке ( в данном случае мы из s2 вычитаем s1).