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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.