Пожалуйста, народ, помогите как можно быстрее решить хотя бы одну из задач Турбо Паскаля.

1.

uses CRT;
var l,s,r: Real;
begin
clrscr;
write('Введите длину окружности: ');
readln(l);
r:=l/(2*pi);
s:=pi*r*r;
writeln('Площадь: ',s);
readkey;
end.

2. Центр описанной окружности лежит на пересечении серединных перпендикуляров, но т. к. треугольник правильный, то центр лежит на пересечении высот (которые одновременно являются и медианами, и биссектрисами) . По свойству медиан, центр О обладает следующей особенностью: делит медиану в отношении 2:1 считая от вершины, т. е. эти 2 части должны быть меньше или равны радиусу, чтобы треугольник поместился в окружности.. . (посмотрите на чертеже)

uses CRT;
var r,a: Real;
begin
clrscr;
write('Введите радиус окружности и сторону треугольника: ');
readln(r,a);
h:=a/2*sqrt(3); { h:=sqrt(a*a-a*a/4); и вынесли из-под корня a/2 }
if r>=2*h/3 then writeln('Поместится'​) else writeln('Не поместится');
readkey;
end.

uses CRT;
var i: Real; k: Integer;
begin
clrscr;
k:=0;
repeat
write('Введите число: ');
readln(i);
if i <> 0 then k:=k+1;
until i=0;
writeln(k);
readkey;
end.

4.

uses CRT;
var s: String; k: Integer;
begin
clrscr;
write('Введите строку: ');
readln(s);
k:=pos(' ',s);
while k>0 do
begin
if k=4 { если номер пробела - 4, то слово состоит из трех букв }
then writeln(copy(s,1,3))​;
delete(s,1,k);
k:=pos(' ',s);
end;
if length(s)=4 then writeln(copy(s,1,3))​; { если вырезали все трехбуквенные слова и осталась строка из 4 символов, выводим первые 3, т. е. 4 - точка }
readkey;
end.

такие вопросы то ли от собственной лени то ли какой смысл тренировать тут всеобщий разум? вот ежели бы вы сами попробовали решить и показали решение, но у вас мол ошибка и что то не понятно тогда помочь можно, а с такими просьбами идите в гугл.

1)
Uses crt;
Var s,l:real;
Begin
ClrScr;
Writeln('BBeguTe gJluHy');
Readln(l);
s:=pi*(l/(2*pi))*(l/(2*pi));
Writeln('nJloLLLagb PaBHa ',s:5:2);
Readkey;
End.

2)
Uses crt;
Var r,a:real;
Begin
ClrScr;
Writeln('BBeguTe Paguyc');
Readln(r);
Writeln('BBeguTe gJluHy');
Readln(a);
If r>(a/2)/cos(Pi/6) then Writeln('noMecTuTc9l')
else Writeln('ne noMecTuTc9l');
Readkey;
End.

4)
Uses crt;
Var
s:string;
i,n:integer;
Begin
ClrScr;
Writeln('BBeguTe cTpoKy');
Readln(s);
n:=0;
i:=0;
While ( i < length(s) ) and (s[i+1] <> '.') do begin do begin
then inc(n)
else begin
if n=3 then writeln(copy(s,i-3,3));
n:=0;
end;
End;
if n=3 then writeln(copy(s,i-2,3));
Readkey;
End.

Если будут вопросы - пиши. И извини, не понял что требуется в третей :)
P.S. Простите за мой карявый транслит ^_^

Ты прямо с уроков чтоли пишеш? К чему такая спешка?
Задачки можно решить, но сейчас пока времени нет :)