program Integer5;
var
A, B, Res: Integer;
begin
Write('Введите длину отрезка A: ');
Readln(A);
Write('Введите длину отрезка B: ');
Readln(B);
Res:=A div B;
Writeln('В отрезке A содержится ',Res,' полных отрезков B.');
end.
