// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var r1:=abs(ReadReal('Наружный радиус кольца'));
var r2:=abs(ReadReal('Внутренний радиус кольца'));
if (r1*r2>0) and (r1>r2) then
Writeln('Площадь кольца ',pi*(sqr(r1)-sqr(r2)))
else Writeln('Неверные данные')
end.
<u><em>Тестовое решение:</em></u>
Наружный радиус кольца 25
Внутренний радиус кольца 21.8
Площадь кольца 470.484915801607
Потому что антивирус может быть закончился или это не такие большие вирусы вред компьютеру не причинят )))
Var s :string;
i :integer;
begin
writeln('введите переменную');
readln(s);
for i:=(Length(s)) downto 1 do write (s[i]);
<span>end.</span>
1)Колумб
2)Чарлз Дарвин
3)Эдвард Гринг
4)Пушкин
5)...
6)...
7)Поиск информации
8)Диск,флешка
9)Байт
10)...
11)...