Var r,s,p:real;
begin
write('R=');
readln(r);
s:=Pi*sqr(r);
p:=2*Pi*r;
writeln('Площадь: ',s);
writeln('Периметр: ',p)
<span>end.</span>
# # Код на ruby 2.2.3p173
k = 0
begin
k = k + 1
k = k * 2
end until k > 10
p k
Ответ 14
Вот к прмиеру..
посмотир в фотографиях может там будет я тут нашла не много............................