Паскаль. написать программу при процедуры, которая по известному радиусу возвращает в основную программу значения площади круга и длины окружности. входящие данные: r (радиус); выходящие данные: s (площадь), l (длина окружности)

Program primer;const Pi=3.14;
procedure SandL(R: integer; var S,L: real);
begin
   S:=Pi*Power(R,2);      L:=2*R*Pi;   end;
var R: integer;
S,L: real;
Begin
readln(R);
SandL(r,s,l);
writeln(Trunc(s),' ',Trunc(l));
end.
ABC Pascal