Ага... посмотрел я твой код поподробнее... есть ессно ошибки... замени-ка его на работающий
program netakoiujiotstoi;
uses CRT;
const Pi=3,14;
var R, Cokruj, Vshara, Skruga: real;
begin
repeat
clrscr;
Writeln ('Введите радиус');
Write ('R= '); Readln (R);
Vshara:=4/3*Pi*(sqr(R)*R);
Cokruj:=2*Pi*R;
Skruga:=Pi*(sqr(R));
if (r<=0) then writeln('Вводите только положительный радиус!');
if (r<=0) then readkey
until (r>0);
Write ('Cokruj= ', Cokruj:2:0);
Write ('Vshara= ', Vshara:2:0);
Write ('Skruga= ', Skruga:2:0);
Readkey
end.
Всего хорошего
