program Massiv;
uses crt;
var
  i : integer;
  A : array[1..20] of integer;

Begin
  for i := 1 to 20 do
  begin
    Write('a',i,'=');
     Readln(a[i]);
  end;
 for i := 1 to 20 do
  begin
    IF a[i] mod 2 = 0 then
       a[i] := sqr(a[i])
    else
        a[i] := 2*a[i];
    end;
  readkey;
End.