<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3;
if (a<>b) and (a<0) and (b<0) and (c<0) then begin
(a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end
else Writeln('Сумма равна ',a+b+c)
end.
<span>РОТА – роЗа – Поза –поЛа –ПОЛК</span>
Программа на паскале для решения задачи - в прилагаемом файле
C++
<span>#include<iostream>
using namespace std;
int main()
{
double r = 0.f, area = 0.f;
cout << "Enter radius of circle : ";
cin >> r;
area = 3.1415 * r * r;
cout<< "Area of circle : " << area;
<span>}</span></span>