// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
Writeln('S=',pi*sqr(ReadReal('r=')):0:5)
end.
<u><em>Тестовое решение:</em></u>r= 12.7
S=506.70748
Виталий|Андрей|Павел=(Виталий+Андрей+Павел)-Андрей&Виталий-Андрей&Павел-Виталий&Павел
Виталий=90
Павел=132
Андрей=121
Андрей&Виталий = 50
Андрей&Павел = 91
Виталий&Павел = 51
Виталий|Андрей|Павел = (132+121+90)-50-91-56=146
Ответ: 146
- не использовать знаки ? / и некоторые др.
- длина имени не более 20 символов
- имя файла отражает содержимое
<span>b. Для того чтобы число делилось на 2, достаточно, чтобы оно было четным
</span><span>d. Для того чтобы число делилось на 3, достаточно, чтобы сумма его цифр </span>