Увеличить переменную a в 50р.,если a нечетное число иначе увеличить на 30 РЕБЯТ ОЧЕНЬ

Var  a:real; begin readln(a); if(a mod 2 = 0) writeln(a+30) else writeln(a*50); end.