Даны числа АВС, четные числа умножить на 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.