написать в паскале
Ввести три числа A, B, C четные числа увеличить в 10 раз, иначе уменьшить на 10 раз

Var

A, B, C : integer;

Begin

Readln(A, B, C);

if A mod 2 =0 then A:= A * 10 else A:=A-10;

if B mod 2 =0 then B:= B * 10 else B:=B-10;

if C mod 2 =0 then C:= C * 10 else C:=C-10;

Writeln('A=', A);

Writeln('B=', B);

Writeln('C=', C);

Readln;

End.

Объяснение:

Я смог