<span> самый мощный процессор на 2016 год - AMD A10-7870K</span>
var a: array [1..6] of integer;
var I: integer;
begin
a[1]:=5;
for I:=2 to 6 do a[I]:=a[I-1]*a[I-1];
writeln(a[I]);
end.
Ответ -4223
Смотри во вложенном pdf-документе.
1.резервные копии
<span>2.перенос </span>
<span>3.снижение ресурсоемкости </span>
<span>4.в целях безопасности</span>
Var a,b,c,p:real;
Begin
//Формула Герона
p:=(a+b+c)/2;
a:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(a:2:3);
end.