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