Не могу понять почему не работает

[Valeriy_136]

program PS;
var a,P,S:real;
readln(a);
procedure st(a:real);
var p,s:real;
begin
P:=3*a;
S:=a*2*sqrt(3)/4;
end;
begin
writeln(P);
write(P);
end.

[p51x]

А что вы ожидали? Свою процедуру не пробовали вызывать?

[newerow1989]

program PS;
var a,P,S:real;
begin
   readln(a);
   P:=3*a;
   S:=a*2*sqrt(3)/4;
   writeln(P:5:5);
   writeln(S:5:5);
   Readln;
end.