Паскаль abc.найти объем цилиндра, описанного около шара радиуса r .

program lab1; const pi=3.14; c=4/3; var r:integer; V:real; begin writeln('введите r'); readln(r); V:=c*pi*sqr(r)*r; writeln('обьем'); write(V); read; end.