// Задача 1.7 Кучеренко begin var A, C: real; write('Vvedite A: '); readln(A); write('Vvedite C: '); readln(C); if abs(A) = abs(C) then C := 0.125 * C else C := 2 * C; writeln('C = ', C); end.