ответ
Лекин барибир бирликда гап кўп. Мана, неча йиллар «Бутун дунё пролетарлари, бирлашингиз!» деб юрдик. Пролетарларнинг қорни оч экан, бирлаштирувчи куч заифлашиши билан ҳамма ҳар томонга тарқаб кетди. Бирови хон, бирови султон бўлди, бирови империя тузди, бирови НАТОга аъзо бўлди. Бирови Лениннинг ҳайкалларини йиқитиб ўзиникини ўрнаттириб чиқди. Ҳатто ҳафталарнинг номини қариндош-уруғларига бўлиб берди. Орзуга айб йўқ-да! Ленин орзу қилган «Ҳар бир оқсоч давлатни бошқара билиши керак», -деган замонлар мана энди келди. Фақат одамларни қандай бирлаштиришни билса бас. Буёғини бошқариш осон бўлади.
Объяснение:
rl,r2 : real; { радиус кольца и отверстия }
s : real; { площадь кольца }
begin
writeln('Введите исходные данные:');
write('радиус кольца (см) -> ');
readln(rl);
write('радиус отверстия (см) —> ');
readln(r2);
if rl > r2 then
begin
s:=PI*(sqr(rl)-sqr(r2));
writeln ('Площадь кольца ',s:6:2,' кв.см’);
end
else writeln ('Ошибка! Радиус отверстия не может быть ',
'больше радиуса кольца.');
writeln ('Для завершения работы программы нажмите <Enter>');
readln;
end.