Важнее любовь. Просто сейчас такое время, что заработать минимум и даже чуть больше возможно. И жить ты будешь, как вообщем-то и многие - на все самое необходимое практически хватает. Ведь те,кто жилье-авто меняет, элитные салоны одежды посещает, бутерброд со слоями красной и черной икры ест, составляют малую часть. А любому человеку нужна любовь - чтоб было к кому прижаться, на кого посмотреть, о ком заботиться. Ведь особое тепло в нас именно любовь вызывает. А есть еще любовь к детям, родителям...Как это все в деньгах оценить? И ведь ни за какие деньги не купишь и не заставишь себя любить, ждать, радоваться. Деньги дают власть и привилегии в материальных благах. Но человек уже давно перерос тот уровень, когда лучший кусок и шкура потолще ценились. Нам теперь и душевная часть нас важна. И тут самым важным является наша чувствовать и любить.
Важнее любовь. Просто сейчас такое время, что заработать минимум и даже чуть больше возможно. И жить ты будешь, как вообщем-то и многие - на все самое необходимое практически хватает. Ведь те,кто жилье-авто меняет, элитные салоны одежды посещает, бутерброд со слоями красной и черной икры ест, составляют малую часть. А любому человеку нужна любовь - чтоб было к кому прижаться, на кого посмотреть, о ком заботиться. Ведь особое тепло в нас именно любовь вызывает. А есть еще любовь к детям, родителям...Как это все в деньгах оценить? И ведь ни за какие деньги не купишь и не заставишь себя любить, ждать, радоваться. Деньги дают власть и привилегии в материальных благах. Но человек уже давно перерос тот уровень, когда лучший кусок и шкура потолще ценились. Нам теперь и душевная часть нас важна. И тут самым важным является наша чувствовать и любить.
Объяснение:
Я УЖЕ ТАК ОТВЕЧАЛ И ПО ПРЕЖНЕМУ ТАК ЩИТАЮ
uses graphABC;
procedure arh(x0,y0,a,m,n:integer);
var f,r,x,y:real;
begin
f:=0;
while f<=m*pi do
begin
r:=a*f;
x:=r*cos(f);
y:=r*sin(f);
if f=0 then moveto(x0+round(x),y0-round(y))
else lineto(x0+round(x),y0-round(y));
f:=f+0.01;
end;
line(x0-round(r),y0,x0+round(r),y0);
line(x0,y0-round(r),x0,y0+round(r));
textout(x0-50,y0-round(r)-20,'a='+inttostr(a)+' m='+inttostr(m));
end;
var a,n,m:integer;
begin
arh(100,100,4,1,1);
arh(400,100,6,4,1);
arh(100,300,2,10,1);
arh(400,300,3,12,1);
end.