Даны числа АВС, четные числа умножить на 2, к нечетным прибавить 3. Решить про помощи Паскаля

Program ten; Var A,B,C: integer; Begin  Write ('Введите число A '); Read(A); Write ('Введите число B '); Read(B); Write ('Введите число C '); Read(C); If A mod 2 = 0 Then A:=A*2 Else A:=A+3; If B mod 2 = 0 Then   B:=B*2 Else B:=B+3;  If C mod 2 = 0 Then C:=C*2 Else C:=C+3; Write (' число A',A); Write (' число B',B); Write (' число C',C);  end.