Даны числа АВС, четные числа умножить на 2, к нечетным прибавить

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.