[kjma-c]

procedure avg (x,y:integer;var z:real);
var a,b,i,c : integer;h:real;
begin
a:=x;b:=y;
while (a<>0) and (b<>0) do
begin
a:=a-1;b:=b-1;
end;
if a<> 0 then
c:=a
else
c:=b;
h:=0;
while c > 1 do
begin
h:=h-1;c:=c-2;
end;
if c=1 then
h:=h-0.5;
if x>y then
z:=x-(-1*h)
else
z:=y-(-1*h);
end;

و هي حليناها بس بالضرب و بالطرح و ما استخدمنا لا جمع ولا قسمة
بدك شي تاني لعيونك
و إذا بدك ياه بلغة تاني أنا جاهز