Определить площадь круга, длину окружности и объем шара, используя в качестве радиуса сумму знаков трехзначного числа — Pascal(Паскаль)

uses Crt;
var a,a1,a2,a3,r:integer;
     plos,dlina,ob:real;
begin
clrscr;
readln(a);
a1:=a mod 10;
a:=a div 10;
a2:= a mod 10;
a3:=a div 10;
r:=a1+a2+a3;
dlina:=2*pi*r;
plos:=pi*r*r;
ob:=(4/3)*pi*r*r*r;
writeln('Длина круга=',dlina);
writeln('Площадь круга=',plos);
writeln('Объем круга=',ob);
end.