Что-то типа:
uses Crt;
var x, y:real;
begin
ClrScr;
Write('X='); ReadLn(X);
Write('Y='); ReadLn(Y);
if (X>=0) and (x<=3) and (Y>=0) and (Y<=3) then WriteLn ('Yes!!!')
else WriteLn('No...');
ReadLn;
end.
<span>материальные ресурсы – совокупность предметов труда, предназначенных для использования в процессе производства общественного продукта, например сырье, материалы, топливо, энергия, полуфабрикаты, детали и т.д.;</span><span>природные ресурсы – объекты, процессы, условия природы, используемые обществом для удовлетворения материальных и духовных потребностей людей;</span><span>трудовые ресурсы – люди, обладающие общеобразовательными и профессиональными знаниями для работы в обществе;</span><span>финансовые ресурсы – денежные средства, находящиеся в распоряжении государственной или коммерческой структуры;</span><span>энергетические ресурсы – носители энергии, например уголь, нефть, нефтепродукты, газ, гидроэнергия, электроэнергия и т.д.</span>
Радио <span>можно отнести к средством передачи звуковой, аудио информации</span>
M = [-10, -9 .. 10]
f(x) = x*x - (if (x > 1) then x else sin(x))
main = print(map f(m))