Паскаль

[Gera_39]

Помогите! Решите пожалуйста 2 задачи в паскале, обычно сам писал, но последние темы проболел, терь вообще не понимаю, что от меня хотят
задачи следующие:
1. Написать программу, вычеркивающую из данного текста все буквы 'а'.

2.Дан вектор а=(a1, a2, a3) и плоскость, заданная уравнением Ах+Ву+Сz=0.
Написать программу нахождения угла между вектором и плоскостью.

[ROMA2PVT]

Program stroka;
uses crt;
var
  k,k1:string;
  i:integer;
begin
    clrscr;
    write('ВВЕДИТЕ ТЕКСТ: ');
    readln(k);
    k1:='';
    for i:=1 to length(k) do
    if k[i]<>'а' then k1:=k1+k[i];
    write('РЕЗУЛЬТИРУЮЩАЯ СТРОКА: ',k1);
    readln;
end.

Лови первую.

[ROMA2PVT]

Program ugol;
Uses Crt;
Var
  A,B,C,p,a1,a2,a3:real;
BEGIN
  Clrscr;
  writeln('             ПРОГРАММА НАХОЖДЕНИЯ УГЛА МЕЖДУ ВЕКТОРОМ И ПЛОСКОСТЬЮ');
  Write('             Введите координаты вектора a(a1,a2,a3) через пробел: ');
  Readln(a1,a2,a3);
  Write('             Введите координаты вектора нормали V(A,B,C) через пробел: ':50);
  Readln(A,B,C);
  p:=(a1*A+a2*B+a3*C)/(Sqrt(A*A+B*B+C*C)*Sqrt(a1*a1+a2*a2+a3*a3));
  If p=1.0 Then p:=Pi/2
  Else
  p:=Abs(ArcTan(p/sqrt(1-p*p)))*180/Pi;
  writeln;
  Writeln('Угол между вектором a(':40,a1:0:3,',',a2:0:3,',',a3:0:3,')',
  'и плоскостью ':53,A:0:3,'x+',B:0:3,'y+',C:0:3,'z','=0','  =>  ',p:0:3,'°');
  Readln;
END.

А вот вторая.

[Gera_39]

ОГО! Оперативно. Огромное человеческое СПАСИБО!!!

[ROMA2PVT]

Отзыв оставь(висы внизу).Не за что.