Как-то так... )))
Только в 12 точке к x добавила 0 (взяла 1010000 вместо 101000), а то некрасиво было..
<span>RECTANGLE 1,1,200,200,Red,Green - 31 символ
Ответ: 31 байт</span>
Var
N,K,R: integer;
x,s: integer;
begin
read(N,K);
R := N;
x := 2; s := 4;
while s <= K do
begin
while K mod x = 0 do
begin
if N mod x = 0 then
N := N div x
else
R := R * x;
K := K div x;
end;
s := s + 2*x + 1;
x := x + 1;
end;
if N mod K <> 0 then
R := R * K;
writeln(R)
end.
Похоже, что вопросов с номером один не возникает. Тогда можно на месте формулы написать формулу в формате: "=ЕСЛИ(A1>0;вторая формула;первая формула)". На месте A1 стоит значение x