Вычисление длины и площади окружности — Pascal(Паскаль)

program sqring;
var
     { переменные основной процедуры }
     r,l,s:real; { радиус, длина и площадь окружности }

{ процедура программиста }
procedure SqLeOkr(r:real;var s:real; var l:real);
     { r - радиус, s - площадь круга, l - длина окружности }
     const
          pi=3.14159;
     begin
          s:=pi*r*r;
          l:=2*pi*r;
     end;
     
{ основная программа }
begin
     writeln('Вычисление длины окружности и площади круга:');
     write('Задайте радиус и нажмите <Enter> ');
     readln(r);
     l:=0;
     s:=0;
     SqLeOkr(r,s,l);     { переменные программы ■ фактические
                                        параметры процедуры }
     writeln('Радиус окружности: ',r:6:3);
     writeln('Длина: ',l:6:3,',площадь: ',s:7:3);
     end.