Помогите написать программу на паскале АВС... Кому не трудно, очень надо (

Question

Разработать модуль, в котором
определить простейшие процедуры:

1.Определить
длину окружности С,

2.Площадь
круга S,

3.Удаление
L центра окружности от начала координат О.

Координаты
центра окружности равны X и Y, радиус R. Вычисление С, S, L оформить в виде
процедур в модуле, а их значения выдать на экран в программе.

Мне НУЖЕН МОДУЛЬ программы, а не сама программа....

Руслан · Accepted Answer

Писал на скорую, паскаль не стоить, но должно работать.. . 
Var
 r,x,y: Real;
BEGIN
Write('Введите радиус: ');
Readln(r);
Write('Введите точку X: ');
Readln(x);
Write('Введите точку Y: ');
Readln(y);
Writeln('Длина окружности: ',2*pi*r:2:2);
Writeln('Площадь круга: ',pi*Sqr(r):2:2);
Writeln('Расстояние от точки до начала координат: ',sqrt(x*x+y*y);
END.

Питон Питон · Answer

procedure SS(r:real; var s:real);
begin
s:=r*r*pi);
end;
остальные аналогично

Дарья & · Answer

Сама программа: http://pastebin.com/5MhNAMB4 Сам модуль: http://pastebin.com/WmkmqS60