Нужно написать программу в паскале , которая будет убирать из слова букву "а"

1.

const num_1 = 10/52;

const num_2 = sqrt(54.7);

var

 result:real;

 function sum(a,b:real):real;

 begin

    sum:=a+b;

 end;

begin

 result:=sum(num_1, num_2);

 writeln(result);

end.

2.

const x = 41.3;

const basis = 10;

var

 result:real;

begin

 result:=ln(x)/ln(basis);

 writeln(result);

end.

3.

const x = 7.5;

const y = 9.6;

var

 result : real;

 function root(x, y:real):real;

 begin

 root := exp(ln(x)/3) * exp(ln(y)/4);

 end;

begin

 result:=root(x,y);

 writeln(result);

end.

4.

const x = 1.6;

const y = 1.3;

var

 result:real;

 function gen(x,y:real):real;

 var  

   res:real;

 begin

   res:=cos(y);

   gen:=sin(x)*power(res, 3);

 end;

begin

 result:=gen(x,y);

 writeln(result);

end.

Рисунок во вложении. Вместо номеров с 1 по 7 надо вписать следующее:
1. "Раздели монеты на кучки 2 + 2 + 1 и положи на весы две первые кучки (по одной кучке на каждую чашечку)"
2. "Весы в равновесии?"
3. "Монета из третьей кучки - золотая"
4. "Возьми монеты из той кучки, что тяжелее, и положи их на весы (по одной на каждую чашечку)"
5. "Левая монета тяжелее?"
6. "Монета на левой чашечке - золотая. Возьми её и купи почтальону Печкину велосипед"
7. "Монета на правой чашечке - золотая. Возьми её и купи почтальону Печкину велосипед"