===== PascalABC.NET =====
begin
ReadInteger.ToString.Select(c -> c.ToDigit ** 3).Sum.Println
end.
6 горшков по 8л и 3 горшка по 4л
6*8=48
3*4=12
48+12=60
<span>(2х2=6 или 3х3=10) и (2х2=4 или 3х3=9) </span>⇒
(Ложь или Ложь) и (Истина или Истина) ⇒ Ложь и Истина ⇒ Ложь
var
s:real;
begin
Write('Площадь окружности: '); Read(s);
Writeln('Радиус окружности равен ',sqrt(s/Pi):0:5)
end.