uses crt;
const n=10;
var
a:array [1..n] of real;
i:integer;
begin
for i:=1 to n do
read (a[i]);
for i:=1 to n do begin
if a[i]<0 then a[i]:=-a[i];
end;
for i:=1 to n do
writeln (a[i]);
readln
end.

uses crt;
var
a,s:real;
b:integer;
begin
writeln ('Введите основание');
read (a);
writeln ('Введите степень');
read (b);
if (a < 0) then s:= (-1)*Exp(b*Ln(Abs(a))) else
if (a > 0) then s:= Exp(b*Ln(Abs(a)));
writeln (a,'в степени',b,'равно',s);
readln
end.

VAR
 i,j:Integer;
BEGIN
 For i:=10 to 99 do
  For j:=10 to 99 do
   If (((i div 10)*1000+(i mod 10)*100+j) mod (i*j))=0 then
    WriteLn('The sought numbers are ',i,' and ',j);
 WriteLn('That is all!');
 ReadLn;
END.

VAR
 a,b,c:REAL;
 b1,i:Integer;
BEGIN
 Write('Base = ');
 ReadLn(a);
 If a>0 then
 begin
  Write('Power = ');
  ReadLn(b);
  c:=Exp(b*Ln(a));
 end else
 If a<0 then
 begin
  Write('Power (positive or negative integer value only!)= ');
  ReadLn(b1);
  If b1>0 then
   begin
    c:=1;
    For i:=1 to b1 do
     c:=c*a;
   end else
  If b1<0 then
   begin
    c:=1;
    For i:=1 to -b1 do
     c:=c*a;
    c:=1/c;
   end;
 end else
 begin
  Write('Power (negative and zero values are forbidden!)= ');
  ReadLn(b);
  c:=0;
 end;
 WriteLn('c= ',c);
 ReadLn;
END.

const n=10;
var
 a:array [1..n] of integer;
 i:integer;
begin
 for i:=1 to n do
  begin
   write('a[',i:2,']= ');
   readln(a[i]);
  end;
 writeln;
 for i:=1 to n do
  write(a[i]:7);
 writeln;
 for i:=1 to n do 
  if a[i]<0 then a[i]:=-a[i];
 for i:=1 to n do
  write(a[i]:7);
 readln
end.