Написать программу в lazarus на языке pascal. 1)известна гипотенуза и прилежащий угол прямоугольного треугольника. найти площадь треугольника. 2)задана последовательность m случайных натуральных чисел. вычислить количество натуральных чисел, кратных трем и не превышающих заданное n. 3)заменить в строке все цифры на пробел. вывести количество замен.

Попробуй так, но это по сторонам и углу,
program triangle;
var a,b,s,k: real;
procedure triang (a,b,k: real; var s: real);
begin
s:= 0.5 * a * b * sin(k);
end;
begin
write ('Введите стороны a и b через пробел: ');
readln (a,b);
write ('Введите угол: ');
readln (k);
triang (a,b,k,s);
WriteLn('Площадь = ',s:5:2);
end.
Это первое задание.

{pascalabc}

program f0rwardirop;

var  

  r,x,y: real;

  b: boolean;

  i: integer;

  s: string;

begin

  s: =' -=alphaeus=- ';

  for i: =1 to 22 do begin write(s[i]); sleep(200) end;

  writeln; write('ok, введите r = '); readln(r);

  write('теперь введите х = '); readln(x);

  write('и, наконец, введите y = '); readln(y);

  if x> =0 then

    if (x*x+y*y < = r*r) then b: = true else b: =false

    else

      if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;

  if b then writeln('точка (',x,',',y,') принадлежит закрашенной области')

  else writeln('точка (',x,',',y,') не принадлежит закрашенной области');

end.

pascalabc:

program f0rwardirop;

var r, x,y: real;

b: boolean;

begin

  writeln('*   alphaeus is   *');

  write('ok, введите r =');   readln(r);

  write('теперь введите х =');   readln(x);

  write('и, наконец, введите y =');   readln(y);

  if x> =0 then  

      if (x*x+y*y < = r*r) then b: = true else b: =false

    else

      if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;

  if b then   writeln('точка (',x,',',y,') принадлежит закрашенной области')

      else   writeln('точка (',x,',',y,') не принадлежит закрашенной области');

end.