Сделайте пожалуйста квадрант круга в delphi?

программу)

Задача на Pascal

сим­во­лов ис­поль­зу­ет­ся ко­ди­ров­ка Unicode, при ко­то­рой каж­дый сим­вол ко­ди­ру­ет­ся 16 би­та­ми. Опре­де­ли­те ин­фор­ма­ци­он­ный объём ре­фе­ра­та.

т.е. A[0] = 6; A[1] = 4 и т.д.

c := 0;
for i := 4 to 9 do
if A[i - 1] < A[i] then
begin
c := c + 1;
t := A[i];
A[i] := A[i - 1];
A[i - 1] := t
end;
Определите значение переменной c после выполнения следующего фрагмента программы, записанного ниже на разных языках программирования.

Даны два действительных положительных числа x и y.
Тригонометрические действия над числами пронумерованы (1 - sin, 2 - cos, 3 - tg,

В приведенной таблице ниже указаны возраст и фамилии сотрудников одного офиса. Расположите фамилии в соответствии с возрастными категориями, указанными в таблице. Запишите необходимые формулы в ячейки: C2, D2, E2.