<em>Система</em>
<em>Структурированная, наглядная</em>
<em>Поясняет, упорядочивает, помогает</em>
<em>Предоставляет удобство в поиске информации</em>
<em>Порядок</em>
Var a,b,c,d,sr:real;
begin
read(a,b,c,d);
sr:=(a+b+c+d)/4;
if (a<b) and (b<c) and (c<d) then
begin
a:=d;
b:=d;
c:=d;
end
else
if (a>b) and (b>c) and (c>d) then
begin
a:=sr;
b:=a;
c:=a;
d:=a;
end
else
begin
a*=a;
b*=b;
c*=c;
d*=d;
end;
write(a,' ',b,' ',c,' ',d);
<span>end.</span>
Память_____________________
Не собачьи не кошачьи а медвежий
Y:=sqr((sqrt(sqr(x))+2*b)/(a+sqr(b)+c));