PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программа не работает, обновите версию!

program pascal;

var s, v, r:real;

begin

writeln('ВВедите радиус');

readln(r);

s:=4*3.14*r*r;

v:= 4/3*3.14*r*r;

Writeln('Площадь шара=',s,'Объем шара=',v);

end.