Помогите еще с прогой плизз

[TwEEkcs]

Ввести три целых числа каждое число заменить его модулем, используя свою процедуру замены числа на его модуль .(встроенной функцией ABS не поьзоваться)

[__STDC__]

var
	x:real;
begin
	readln(x);
	writeln(sqrt(sqr(x)));
	readln;
end.

оформите сами как процедуру..

[sheka]

procedure myabs(var x:integer);
begin
if x<0 then x:=-x;
end;

Уважаемый TwEEkcs, предоставляйте свои наработки и к вам сразу поменяется отношение.

[ОДИНОЧЕСТВО В СЕТИ]

procedure modul(var a:real);
begin
if a<0 then a:=0-a;
end;

вот еще!!! упс чуть чуть не успела!!!!

[__STDC__]

еще так можно

uses
       math;
var
	x:real;
begin
	readln(x);
	writeln(sign(x)*x);
	readln;
end.

P.S. остальные такие скучные ^_^

[TwEEkcs]

Спасибо вам !!