qqqqwwwweeee Q qqqqwwwweeee Регистрация 13 Июн 2013 Сообщения 87 Репутация 0 Спасибо 0 Монет 0 26 Ноя 2016 #1 Например так: repeat readln(r); writeln(pi*r*r); until r=0;