Вычислить по стороне равностороннего треугольника его периметр и площадь

 var
a:real;
procedure TrianglePS(a:real);
var 
s,p:real;
begin
  s:=a*a*(sqrt(3)/4);
  p:=3*a;
  writeln('Периметр:',s:3:3);
  writeln('Площа:',p:3:3);
end;
begin
  write('Введiть сторону рiвностороннього трикутника');
  readln(a);
  TrianglePS(a);
  readln;
end.

 var r1,r2,Plowady:real;
function Rings(m1:real;m2:real):real;
var
s1,s2:real;
const pi=3.14;
begin
  s1:=pi*m1*m1;
  s2:=pi*m2*m2;
  Rings:=s1-s2;
  writeln('Площа кiльця ',Rings:3:3);
end;
begin
  write('введiть r1:');readln(r1);
  write('введiть r2:');readln(r2);
  Plowady:=Rings(r1,r2);
  readln;
end.

TrianglePS(a);
TrianglePS(b);
TrianglePS(c);

procedure TrianglePS(x: real);
var
  s, p: real;
begin
  s := x * x * (sqrt(3) / 4);
  p := 3 * x;
  writeln('Периметр:', s:3:2);
  writeln('Площа:', p:3:2);
  s := 0;
  p := 0;
end;
 
var
  a, b, c: real;
 
begin
  writeln('Введiть сторону рiвностороннього трикутника-1');
  readln(a);
  TrianglePS(a);
  writeln('Введiть сторону рiвностороннього трикутника-2');
  readln(b);
  TrianglePS(b);
  writeln('Введiть сторону рiвностороннього трикутника-3');
  readln(c);
  TrianglePS(c);
  readln;
end.

const
  pi = 3.14;
 
function Rings(m1: real; m2: real): real;
var
  s1, s2: real;
begin
  s1 := pi * m1 * m1;
  s2 := pi * m2 * m2;
  Rings := s1 - s2;
end;
 
var
  r1, r2, Plowady: real;
 
begin
  repeat
    write('введiть r1:');
    readln(r1);
    write('введiть r2:');
    readln(r2);
  until r1 > r2;
  Plowady := Rings(r1, r2);
  writeln('Площа кiльця', Plowady);
  readln;
end.

//повторить этот процесс 3 раза.
repeat
    write('введiть r1:');
    readln(r1);
    write('введiть r2:');
    readln(r2);
  until r1 > r2;
  Plowady := Rings(r1, r2);
  writeln('Площа кiльця', Plowady);
Plowady:=0;

if r1>r2 then begin
 //кусок кода по поиску площади
end
else
writeln('неверный ввод');