program Variant1;
var
C, X, B: real;
begin
C := 1;
X := 1;
repeat
B := X * X;
if X mod 3 = 0 then
C := C * X;
X := X + 2;
until X > 9;
writeln('C = ', C);
writeln('X = ', X);
writeln('B = ', B);
end.
C = 1
X = 1
B = X ** 2
while X <= 9:
if X % 3 == 0:
C = C * X
X = X + 2
print(C, X, B, sep = "\n")