Описать процедуру Trian — Pascal(Паскаль)

//-----------------------------------
uses PT4;
var  a,S,P:real;
     j:integer;
 
Procedure Step2(A1:real; var S1,P1:real);     
var i,l:integer;
begin
P1:=3*a;
S1:=sqr(a)*sqrt(3)/4;
end;
 
 
begin
  Task('Proc4');
  For j:=1 to 3 do
    begin
    readln(a);
    Step2(A,S,P);
    writeln(P,S);
    end;
end.