В конце программы пропущен end;
И еще не описан массив Dt
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.
<span><span>Формальный - запись алгоритма словесно, на естественном языке.
</span><span>Графический - изображение алгоритма в виде блок-схемы.</span></span>
1) 4
2) сомневаюсь в этом ответе (в варианте E)
I - A ,B,D,F,G.H,J
II -E,I
III - C
3)
I - B
II -A
III - F
IV - C
V - G
VI - D
VII -E