Вычислить период колебания маятника длины L — Pascal(Паскаль)

uses crt;
const g=9.8;
var t,l:real;
 
begin
 clrscr;
 write('L -> ');
 readln(l);
 if l<=0 then write('Некорректное значение L!') else
 begin
  t:=2*pi*sqrt(l/g);
  writeln('T=',t:0:3,' s');
 end;
 readln;
end.