Записать программу данного числа возведенного в куб если оно четное…

Пожалуйста: program Pr1; var a,y,z: integer; x: real; beginreadln (a); if a mod 2=0 then begin x: =exp (3*ln (a); writeln (x: 8:3); endelse begin a: =a+3; writeln (a); end; end.