помогите с Паскалем =((

1)
program circles;
Var r11,r12, r21,r22,r31,r32:real; {радиусы колец}
s1,s2,s3:real; {площади колец}
Function RingS(r1, r2:real):real;
begin
rings:=3.14*(sqr(r1)-sqr(r2));
end;
begin
writeln ('Введите радиусы 1-го кольца, R1 > R2');
readln(r11,r12);
writeln ('Введите радиусы 2-го кольца, R1 > R2');
readln(r21,r22);
writeln ('Введите радиусы 3-го кольца, R1 > R2');
readln(r31,r32);
s1:=RingS(r11, r12);
writeln ('Площадь первого кольца=',s1 );
s2:=RingS(r21, r22);
writeln ('Площадь второго кольца=',s2 );
s3:=RingS(r31, r32);
writeln ('Площадь третьего кольца=',s3 );
end.

2)
program treugolniki;
Var a1,h1,a2,h2,a3,h3:real; {основания и высоты}
p1,p2,p3:real; {периметры }
Function TriangleP(a, h:real):real;
Var b:real;
begin
b:=sqrt(sqr(a/2)+sqr(h));
TriangleP:=a+2*b;
end;
begin
writeln ('Введите основание и высоту первого треугольника');
readln(a1,h1);
writeln ('Введите основание и высоту второго треугольника');
readln(a2,h2);
writeln ('Введите основание и высоту третьего треугольника');
readln(a3,h3);
p1:= TriangleP(a1, h1);
p2:= TriangleP(a2, h2);
p3:= TriangleP(a3, h3);
writeln ('Периметр первого треугольника=',p1:2:2);
writeln ('Периметр второго треугольника=',p2:2:2);
writeln ('Периметр третьего треугольника=',p3:2:2);
end.

3)
program summa;
Var a,b,c,s1,s2: integer;
Function SumRange(a, b:integer):integer;
Var x,s:integer;
begin
S:=0;
for x:=a to b do
S:=S+x;
SumRange:=s;
end;
begin
writeln ('Введите a');
readln(a);
writeln ('Введите b');
readln(b);
writeln ('Введите c');
readln(c);
s1:=SumRange (a,b);
s2:=SumRange (b,c);
writeln ('Сумма чисел от ', a, ' до ', b, ' равна ', s1);
writeln ('Сумма чисел от ', b, ' до ', c, ' равна ', s2);
end.

Могу помочь с задачами, пиши на почту.