Помогите решить задачу в Паскале?

[ТолянPAVL]

Вот отдна задача:

Строковый тип данных

дан текст.Если в данном тексте имеется не менее 2 групп букв,то каждый знак+ встерчающийся между двумя первыми по порядку группами букв заменить цифрой 1, знак - заменить цифрой 2,а знак * заменить цифрой 3.Иначе оставить текст без изменений


Вот 2 задача:

Найти площадь и периметр(запросить) окружности
___________________________________ ________

Использовать процедуры и функции модуля CRT.Записать все необходимые данные и выводить результат в отдельном окнах.

Дополнительно
Организовать запрос для повторного запроса

Желательно 2 программы сделать!!!!

[Stilet]

Желательно 2 программы сделать!!!!

Вот прямтак с нуля? А похвастаться наработками?

[ТолянPAVL]

Первую задачу не надо!!!! Да у меня уже мозг не работает,устал за целый год!!

[MalCer]

Найти площадь и периметр(запросить) окружности

У окружности нет площади!!! Только у круга есть!
2)

uses
crt;
const
pi=3.14;
  var
   r:integer;
   s,p:real;
begin
ClrScr;
writeln('Ведите радиус круга');
readln(r);
s:=pi*r*r;
p:=2*pi*r;
writeln('Площадь= ',s,'Периметр= ',p:6:2);
readln
end.