Найдите ошибку, выдает несколько ответов program abc; var a, b: real; begin writeln('найти длину не занятой части отрезка a'); write('a= '); readln(a); write('b= '); readln(b); while (a-b) > =0 do begin a: = a-b; writeln('длина не занятой части отрезка а= ', a ); end; end. найти длину не занятой части отрезка a a= 34.72 b= 8.95 длина не занятой части отрезка а= 25.77 длина не занятой части отрезка а= 16.82 длина не занятой части отрезка а= 7.87
writeln('Длина не занятой части отрезка А= ', A );
end.
поменять в конце end; с writeln